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2 Condiciones 


ASTAÁ ahora siempre que 
hemos establecido una con- 
dición dentro de un proce- 
dimiento hemos utilizado 
una relación en la que han 
intervenido una variable y 
una constante. La relación 
establecida entre ambas ha 
consistido en una comparación. 

Para realizar esta comparación hemos 
utilizado los operadores de relación: 


— = igual que 
— > mayor que 
— < menor que 


1 


y hemos conseguido relaciones como: 


— ¡V = 10 El valor de la variable :V es 
igual a 10 

— ¡V > 10 El valor de la variable :V es 
mayor que 10 

-— ¿V < 10 El valor de la variable :V es 
menor que 10 


Como resultado de estas relaciones ob- 
tenemos CIERTO o FALSO dependiendo que 
se cumpla o no la condición, 

Estas relaciones pueden combinarse a 
la vez con los operadores lógicos: 


— NO 

— Y 

=— 0 

Para ello hay que expresar la relación 


entre paréntesis y utilizarla como predicado 
del operador: 


— Y (V > 10) (:B = 20) 


El valor de la variable :V es mayor que 
10 y el valor de la variable :B es igual a 20. 


— O(V<5)(B> 10) 


El valor de la variable :V es menor que 
5 o el valor de la variable :B es mayor que 10. 


— NO (V < 5) 


No es menor el valor de la variable V 
que 5... 

Por ejemplo, si la condición que se quie- 
re establecer es que una variable sea mayor 
o igual a un número, tenemos que expresarlo: 


?SIO (V > 10) (V = 10) 


- Obtenemos como resultado CIERTO, 
siempre que :V contenga un valor igual o su- 
perior a diez. 

Si la condición es que el valor de una 
variable sea distinto de diez, lo expresamos de 
la siguiente forma: 


? SINO (V = 10) 


NO IGUAL equivale a distinto. 

Si, por ejemplo, queremos realizar una 
determinada acción cuando el valor de una 
variable :A sea igual a siete y el valor de una 
variable :B sea mayor que 7, podemos expre- 
sar de dos formas: 


1.2 forma: 
? SI:A = 7 [SI :B > [ACCION 1]] [AC- 
CION] 


2.2 forma: 

?SIY (A =7) (B > 7) [ACCION 1] [AC- 
CION 2] 

Combinando estos dos tipos de opera- 
dores podemos ampliar las condiciones y 


ahorrarnos el tener que utilizar más de las ne- 
cesarias. 


3 La orden número 


NUMERO? objeto 
Si el objeto LOGO es un número, la or- 


Es posible saber de qué tipo es el contenido de 


una variable. 


k 
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den NUMERO? devolverá CIERTO; si no, de- 
volverá FALSO. 


? ESCRIBE NUMERO? 3 
CIERTO 


El objeto en este caso es el número 3; 
por tanto, el resultado de NUMERO? es CIER- 
TO. 


? HAZ”A"G 
? ESCRIBE NUMERO? :A 
FALSO 


El objeto es la variable A, el valor de A 
es la letra G, el resultado de NUMERO? es 
FALSO. 

En muchas ocasiones nos encontramos 
con la necesidad de saber qué tipo de dato 
contiene una variable, o de qué tipo es el dato 
que se ha leído del teclado; a partir de ahora 
NUMERO? nos informará de ello. 

Veamos un ejemplo: 


? PARA SUMAD 

> HAZ "A LEECAR 

> SI NUMERO? :A [] [ALTO] 
> HAZ 'B LEECAR 

> SI NUMERO? :B [] [ALTO] 
> HAZ 'C:A +:B 

> ESCRIBE "SUMA 

> ESCRIBE :C 

> FIN 


El procedimiento SUMAD lee los datos 
del teclado; si uno de ellos no es un número, 
la ejecución del procedimiento finaliza, y si los 
datos leídos son numéricos, se suman. 

Esto que hemos hecho es una forma de 
impedir que lleguen letras como operandos a 
la operación suma. 

A la hora de leer un carácter del tecla- 
de,.nos encontramos con que no todas las le- 
tras equivalen a un solo carácter. 

Hay teclas, como son las de movimiento 
del cursor, que no pueden representarse con 
códigos ASCII normales, y por ello al ser leí- 
das retornan un código ASCII ampliado. 

Así en LOGO para leer una tecla de este 
tipo necesitamos leer dos caracteres, lo cual 
no significa que se deban pulsar dos teclas; es- 
tas teclas especiales ya suponen en sí dos ca- 
racteres. 
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El ASCII del primer carácter será cero. 
El ASCI del segundo carácter será el 
que en la tabla de códigos ASCII ampliados le 
corresponda a la tecla que hayamos pulsado. 


Compruébalo con este ejemplo: 


? PARA COD 

> HAZ ”A LEECAR 

> ESCRIBE "PRIMERO 
> ESCRIBE ASCII :A 
> HAZ "B LEECAR 

> ESCRIBE "SEGUNDO 
> ESCRIBE ASCII :B 

> FIN 


Ejecuta el procedimiento. 
? COD 


y pulsa, por ejemplo, la tecla de movimiento 
de cursor hacia arriba. 


En la pantalla aparecerá: 


PRIMERO 
O 

CIERTO 
SEGUNDO 
12 


A continuación presentamos un ejemplo 
en el que la utilización de las órdenes Sl y 
LEECAR es continua e imprescindible. 


— DEFINIR CARACTERES DE 8*8. 


Definimos un carácter iluminando pun- 
tos en una cuadrícula de 8 por 8 y a su vez va- 
mos dibujando, a la izquierda de la cuadrícu- 
la, el carácter que estamos definiendo en ta- 
maño real. 


Las normas que seguimos son: 


— Movemos la tortuga por la cuadrícu- 
la con las teclas de movimiento de cursor. 

— Para iluminar un punto pulsamos la 
tecla RETURN, cuando la tortuga esté en la 
cuadrícula correspondiente. 

— Para finalizar la definición de carác- 
ter pulsamos la letra F. 

— La cuadrícula está formada por cua- 
dros de 15 por 15; por tanto, cuando movemos 
la tortuga una posición saltamos 15 puntos, tan- 
to para la X como para la Y. 

— Trabajamos con letras mayúsculas. 


? PARA DEFI 

> BP 

> OT 

> BL 

> REPITE 4 [AV 120 GD 90] 

> REPITE 7 [GD 90 AV 18 G1 90 AV 120 
RE 120] 

> CENTRO 

> REPITE 7 [AV 18 GD 90 AV 120 RE 
120 GI 90] SL 

> PONPOS [52 63] 

> HAZ "X 52 

> HAZ "Y 63 

> HAZ "PX -20 

> HAZ 'PY8 


> MT 

> REPITE 1000 [POSI SI (ASCII :B) = 70 
[ALTO] 

> FIN 


Este primer procedimiento se encarga 
de: 


— Inicializar la pantalla. 
— Dibujar una cuagrícula de 8 por 8. 
— Posicionar la tortuga dentro de la 
cuadrícula. 


La variable Y contiene la posición (coor- 
denada Y) de la tortuga dentro de la cuadrícu- 
la. 

La variable X contiene la posición (coor- 
denada X) de la tortuga dentro de la cuadrícu- 
la. 


Dibujo real del carácter 

La variable PY contiene la posición 
(coordenada Y), en donde se pintará un punto 
si el equivalente en la cuadrícula se ilumina. 

La variable PX contiene la posición 
(coordenada X) del punto del dibujo real. 

— Ejecutar, si el código ASCII del con- 
tenido de la variable B (esta variable toma va- 
lor en el procedimiento POSI) no es 70 (letra 
F), el procedimiento POSI 1000 veces. 

Utilizamos el REPITE 1000 [] para conse- 
guir ejecutar el procedimiento POSI el núme- 
ro de veces suficientes para definir un carác- 
ter. 

Si conociésemos una orden del tipo: 


MIENTRAS se cumpla la condición eje- 
cuta POSI no tendríamos que usar un método 
tan rebuscado como éste; más adelante vere- 


1 LOGO, para leer una 


3 Yy9 Tp | Vi. 
am ¡07 Lé 


mos cómo conseguimos simular una orden 
MIENTRAS. 


Segundo procedimiento (procedimiento 
POSI): 


? PARA POSI 

> HAZ 'B LEECAR 

> SI (ASCII :B) = 13 (BL RELLENA PIN- 
TA HAZ 'B LEECAR] 

> SI (ASCII :B) - 70 [ALTO] 

> HAZ "A LEECAR 

> HAZ "C ASCII :A 

> SI :C = 72 (HAZ "Y :Y + 15 HAZ 'PY 


PY +1] 

> SI :C = 80 [HAZ "Y :Y - 15 HAZ "PY 
-PY - 1] 

> SI:C = 75 [HAZ "X :X - 15 HAZ "PX 
PX - 1] 

> SI :C =77 [HAZ 'X :X + 15 HAZ "PX 
¡PX +1] 

> PONX :X 

> PONY :Y 

> FIN 


Las funciones del procedimiento POSI 
son: 


— Leer un carácter del teclado. 
— Analizar el carácter leído. 


Si el ASCII del carácter es 13 (significa 
que se ha pulsado la tecla RETURN, iluminar 
un punto), se ejecuta el procedimiento PINTA 
y se lee otro carácter. 

Si el ASCH del carácter es 70, se de- 
vuelve el control al procedimiento DEFI, que 
a su vez finaliza. 


— Leer otro carácter (para leer las te- 
clas del cursor necesitamos dos LEECAR). 
— Analizar el carácter leído. 


Si el ASCU del carácter es 72, se ha pul- 
sado la tecla f, incrementamos la variable Y 
en 15 y la variable PY en 1. 

Si el ASCII del carácter es 80, se ha pul- 
sado la tecla |, decrementamos la variable Y 
en 15 y la variable PY en uno. 

Si el ASCII del carácter es 75, se ha pul- 
sado la tecla «-, decrementamos la variable X 
en 15 y la variable PX en 1. 

Si el ASCII del carácter es 77, se ha pul- 
sado la tecla -+, incrementamos la variable X 
en 15 y la variable PX en 1. 


tecla de código ASCII 


ado, necesitamos leer dos caracteres. 


T 
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— Colocar la tortuga en la nueva posi- 
ción. 

? PARA PINTA 

="0T 

> SL 

> PONX :PX 

> PONY :PY 

> BL 

>AV] 

> SL 

> PONX :X 

> PONY :Y 

> MT 

> FIN 


PINTA es el procedimiento que sé eje- 
cuta si se ha pulsado la tecla RETURN. 

Este procedimiento oculta la tortuga 
con el fin de que no se vea el desplazamiento 
que realiza, pinta un punto en las coordenadas 
especificadas por las variables PX y PY, de- 
vuelve la tortuga a su antigua posición y la vi- 
sualiza. 

Estos tres procedimientos nos sirven 
para definir un carácter de 8 por 8 a través de 
una cuadrícula. 

Define tus primeros caracteres. 

2DEFI 


Fig. 2. 


En el SPECTRUM y en el MSX no exis- 
ten teclas codificadas en código ASCII amplia- 
do; por tanto, sólo necesitamos una orden (lee- 
caracter) para leer las teclas de movimiento 
del cursor. 

Los códigos ASCII de las teclas de mo- 
vimiento del cursor en el SPECTRUM son: 


Tecla Código 
11 


dl 10 
> 9 
+ 8 
En el MSX: 
Tecla 30 
31 
% 28 
— 29 


Recordamos que en el SPECTRUM la or- 
den 


HAZ “nombre objeto 
equivale a: 
ASIGNA "nombre objeto 


EN A los usuarios del Amstrad 


Vamos a hacer otro pequeño resumen 
de las órdenes que posee el Logo del AMS- 
TRAD con relación a la que ya hemos visto 
para otros ordenadores. 


— OPERADORES ARITMETICOS 

Al igual que en las demás versiones, el 
Logo del AMSTRAD dispone de las operacio- 
nes: 


— SUMA 

— RESTA 

— MULTIPLICACION 
— DIVISION 


expresado mediante los operadores: 
—= + 


* 


Nx 


Puedes controlar el movimiento de la tortuga 


desde el teclado. 


Podemos obtener el resultado de una 
operación realizada con estos operadores me- 
diante la orden: 


— ESCRIBIR "expresión aritmética 
?ESCRIBIR "8 + 2 

y obtenemos en la pantalla: 
10 


?ESCRIBIR "8 - 2 
y obtenemos 


ESCRIBIR "8 * 2 
y obtenemos 
16 


ESCRIBIR "8 / 2 
y obtenemos 
4 


No disponemos de los operadores en 
forma prefija: 


— SUMA 

— RESTO 

— PRODUCTO 

— COCIENTE ; 


No posee órdenes que vimos que sí dis- 
ponían otras versiones de Logo, como son: 


— ENTERO n (devuelve la parte entera 
de n 

— REDONDEA n (devuelve el valor de 
n redondeado al entero más próximo) 

— ABS n (devuelve el valor absoluto de 
n) 

— RAIZCUADRADA (RC) n (devuelve 
el valor de la raíz cuadrada de n). 

Tampoco dispone de las órdenes: 


— EXP 

— LN 

=P] 

— LA ORDEN HAZ 


La orden HAZ en la versión del Logo 
para el AMSTRAD, es igual a la explicada para 
otros ordenadores. 

Para asignar un valor a una variable lo 
hacemos: 


2 HAZ ”"V 15 
Asignamos el valor 15 a la variable :V 


No dispone de la orden ASIGNA. 

El Logo del AMSTRAD posee otra orden 
para asignar desde el exterior valores a las va- 
riables. Se trata de: 


— ENTRADA "nombre de variable 
Si, por ejemplo, introducimos: 
? ENTRADA "VALOR 


el Logo esperará a que sea introducido algo 
desde el teclado, y una vez realizado, pasa a 
ser el contenido de la variable VALOR. 
ENTRADA es similar a la orden LEE- 
CAR, vista para otros ordenadores. 
Para conocer el valor que contiene una 
variable podemos utilizar dos métodos: 


—NMHAA NL 
? ESCRIBIR :V 


Asignamos un 7 a la variable :V y a conti- 
nuación ordenamos que se escriba en la pan- 
talla el valor de dicha variable. Obtendremos 
en la pantalla un 7. 


— 2 HAZ "V 7 
2:v 


Basta con expresar el nombre de la va- 
riable de la que queremos conocer su valor. 


— GESTION CON VARIABLES 

De todos los ordenadores que vimos 
que gestionaban las variables, el Logo del 
AMSTRAD sólo nos permite el borrar una va- 
riable. Esto lo conseguimos con la orden: 


? BORRAR :nombre de variable 


La variable que se especifica se borra- 
rá de la memoria del ordenador. 


— OPERADORES DE RELACION 
Los operadores de relación que posee 


son los mismos que hemos visto para otros or- 
denadores. 


— = ¡igual que 

— > :mayor que 

— < :menor que 

— OPERADORES LOGICOS 

Los operadores lógicos de la versión 


del Logo del AMSTRAD son los mismos que 
hemos visto para otras versiones. La única di- 


Si vas a realizar una operación matemática, 
asegúrate que los operandos son números 


y no letras. 
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ferencia es que en este caso se tienen que es- 
cribir en inglés: 


— O equivale a OR 
— Y equivale a AND 
— NO equivale a NOT 


La forma de expresarlos es: 


— OR 

OR (¡V < 10) (:B < 20) 
— AND 

AND (V = 10) (:B > 20) 
— NOT 

NOT (¿V = 10) 


Se escriben, en primer lugar, el opera- 
dor y a continuación los o el predicado. 


— LA ORDEN SI 

La orden SI tiene algunas diferencias, 
con respecto a su utilización, de otras versio- 
nes del Logo que ya hemos visto, 

La forma de establecer la condición es: 


? SI (condición) 


Observa que la condición debe ir entre 
paréntesis y que no se indica a continuación 
ninguna acción a tomar. 

Sólo se puede indicar la acción a tomar 
en el caso que la condición se cumpla. Esta ac- 
ción debe asignarse previamente a una varia- 
ble llamada instrucción” mediante la orden 
HAZ. 


? HAZ "instrucción [acción] 
Por ejemplo: 


? HAZ "instrucción [adelante 40] 
? HAZ "V 30 
2SICV = - 30) 


Asignamos a la variable instrucción la 
acción a tomar para el caso que la condición 
se cumpla, que consiste en que la tortuga 
avance 40 puntos. A continuación le asignamos 
a la variable :V el valor 30. 

La condición que se establece es que la 
variable :V sea igual a 30. Como el resultado 
es CIERTO se realiza la acción que hay en ins- 
trucción. 

Si la condición no se cumple, continua- 
ría con la ejecución de la siguiente orden. 


10 


La orden SI en el AMSTRAD permite 
también combinar las relaciones con los:ope- 
radores lógicos que hemos visto anteriormen- 
te; 

Otras órdenes que hemos estudiado y 
que tampoco posee esta versión del Logo son: 

Las órdenes trigonométricas: 


SEN 
COS 
ARCTAN 


Y órdenes como: 


ALTO 
TECLA? 
NUMERO? 
ASCIH 

CAR 
COPIADEF 


Cuadro resumen 


— NUMERO? objeto 
Devuelve CIERTO si objeto es un núme- 
ro; si no, devuelve FALSO, 


Ejercicios 

1. Intenta resolver mdiante un procedimien- 
to las ecuaciones de segundo grado con 
raices reales. 


Si las raíces de la ecuación son ima- 
ginarias, mostrar el mensaje: 
IMAGINARIAS 
2. Define un procedimiento que devuelva el 
código ASCII de cualquier tecla que pulse- 
mos. 
3. Intenta realizar los siguientes dibujos: 


Fig. 3. 


Fig. 4. 


Fig. 5. 


Define los procedimientos necesarios para 
que moviendo la tortuga con las teclas de 
movimiento del cursor podamos dibujar 
directamente sobre la pantalla lo que que- 
ramos. 

Además de las teclas del cursor, uti- 
liza las siguientes: 


+ para incrementar el número de 
puntos que avanza o retrocede la 
tortuga en cada paso. 

- acción contraria a la anterior. 

B para bajar el lápiz de la tortuga. 

S para subir el lápiz de la tortuga. 

G para activar la goma. 

F para terminar de dibujar. 

¿Son correctas las siguientes órdenes? 

— ?HAZ'"A'S 
251 NUMERO? 3 / :A [ESCRIBE "CIER- 
TO] [ESCRIBE "FALSO] 


— ?HAZ "A LEECAR 
?HAZ "B LEECAR 
2SI :A>B REPITE 100 [ESCRIBE :A] 


— ?HAZ "A LEECAR 
?SI NUMERO? :A [HAZ 'B LEECAR] 
[HAZ "C ASCII :A] 


Js FOIE Na LAA AA 
— ?HAZ"V AZAR 500 
29SI(V > 300) Y (¿V < 350) [ALTO] 


— ?HAZ 'V 10 
?HAZ 'B AZAR 10 
?SI :V =10 0 :B < 5[AV 20] [RE 20] 


Solución a los ejercicios 


ne 

Con el siguiente procedimiento calcu- 
lamos las raíces de cualquier ecuación de se- 
gundo grado, siempre y cuando las raíces no 
sean imaginarias. E 

?PARAÁ ECU :A :B:C 

> PT 

=> ¡BY 

> HAZ 'D -:B 

> HAZ'EC(B*”:B) - (4*:A4*:C) 

> SI:E < O [ESCRIBE "IMAGINARIAS 

ALTO] 

> HAZ 'F RC :E 

> HAZ'G2*:A 

> HAZ 'S1 (:D +:F) /:G 

> HAZ 'S2 (D - :F) /:G 

> ESCRIBE "SOLUCION: 1 

> ESCRIBE :Sl 

> ESCRIBE "SOLUCION: 2 

> ESCRIBE :S2 

> FIN 

En matemáticas calculamos las raíces 
de una ecuación de segundo grado de la si- 
guiente forma: 

Sea la ecuación: 

ax+bx+c=0 
las raíces las obtenemos con la expresión: 

-b + y b - 4xaxc 

2xa 

Si el resultado de (b - 4x ax c) es nega- 
tivo, las raíces de la ecuación son imaginarias. 

— Explicación del procedimiento. 

El procedimiento ECU tiene tres entra- 


X= 


das: 

A coeficiente de la x 

B coeficiente de la x 

C término independiente. 

Dentro del procedimiento encontramos 
la variable E, que contiene en resultado las ex- 
presiones (B - 4 A C). 
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EXPERIENCIA Y PRACTICAS EN LOGO 


Si el valor de E es negativo, escribimos 
IMAGINARIAS. 

Si el valor de E es mayor o igual que 
cero, calculamos las dos raíces y las escribi- 
mos. 

Calcula, por ejemplo, las raíces de la 
ecuación 


x?2+4x+3=0 
EGU;1 43 


el resultado será 


SOLUCION: 1 
-1 


SOLUCION: 2 
-3 


si las raíces de la ecuación son imaginarias, 
por ejemplo, las de la ecuación 


x2+2x+3=0 
2¿EGCUIA!S 


el resultado será 
IMAGINARIAS 


El procedimiento CODIGOS devuelve 
el código ASCII de cualquier tecla que pulse- 
mos. 


?PARA CODIGOS 

> HAZ “A LEECAR 

> HAZ "C ASCII :A 

> SI :C = 0 [HAZ 'C ASCII LEECAR] 
> ESCRIBE :C 

> FIN 


; Leemos un carácter de teclado y asig- 
namos a la variable C su código ASCII corres- 
pondiente. 

“+ Si el valor de C es cero, nos encontra- 
mos ante un caso de código ASCII ampliado, 
leemos otro carácter y almacenamos en la va- 
riable C su código ASCII. 

Por último, escribimos el valor de la va- 
riable. 

Para saber el código ASCII de la letra 
A, teclea: 


?CODIGOS 


y a continuación la letra A. 
En la pantalla aparecerá el número 65. 


Para obtener los códigos ASCII de 50 te- 
clas, ejecutamos 50 veces el procedimiento 
CODIGOS. 


?REPITE 50 [CODIGOS] 


A continuación vamos pulsando las 50 
teclas. 


En primer lugar, definimos el procedi- 
miento que dibuja la parte superior del caba- 
llo. 


? PARA CABALLO 
> BP 

> SL 

> OT 

> AV 20 Gl 90 

> RE 45 

> BL 

> AV 100 GD 90 
> AV 20 GD 90 

> AV 70 GD 20 

V 32 GD 70 
V9GI 135 
V 10 Gl 45 
V9GI 70 
V 32 GI 20 
V 70 Gl 45 
> AV10 

> SL 

> Gl 135 AV 71 
> Gl 45 


A 
A 
A 
A 
A 
A 


> SL 

> GD 65 AV 31 
> GD 110 

> BL 

> AV10 

> SL 

> CENTRO 
> RE 33 GI 90 
> AV 40 

> PATAS 

> FIN 


Este procedimiento hace una llamada 
PATAS para dibujar las patas del caballo. 


? PARA PATAS 


En una condición se puede introducir más de un 


operador lógico. 


> BL 

> REPITE 2[AV 8 GD 120 AV 60 GD 60] 
> GD 150 AV 8 

> GI30 AV 55 

> PONRUMBO 0 

> SL 

> RE 52 

> GD 90 

> AV 30 

> BL 

> REPITE 2 [AV 8 Gl 120 AV 60 GI 60] 
> AV8 

> GI30 AV 4 

> GI90 AV 58 

> FIN 


Una vez tenemos estos dos procedi- 
mientos definidos podemos ejecutarlos para 
ver el dibujo: 


? CABALLO 


Para dibujar el potro definimos también 
un procedimiento, en primer lugar, para dibu- 
jar la parte superior: 


? PARA POTRO 
> BP 

=> OT 

> SL 

> AV 20 GI 90 
> RE 40 

> BL 

> REPITE 2 [AV 60 GD 90 AV 20 GD 90] 
> GD 135 AV 10 
> GI 45 AV 20 
> GI90 AV 60 
> GlI45 AV 10 
> GI 135 AV 60 
> Gl 45 AV 10 
> SL 

> CENTRO 

> RE 33 GI 90 
> AV 20 

> PATAS 

> FIN 


En POTRO realizamos también una lla- 

mada al procedimiento que dibuja las patas. 
Para ejecutarlo tenemos que introducir: 
? POTRO 


Por último, definimos los procedimien- 
tos que van a dibujar el plinto: 


? PARA PLINTO 

> BP 

"OT 

> SL 

> RE 30 GD 90 

> AV 50 

> CAJON 100 

> CAJON 96 

> CAJON 92 

> CAJON 88 

> CAJON 84 

> CAJON 80 

> PONRUMBO 270 e 
> REPITE 2 [RE 1 AV 80 CD 135 AV 18 
GD 45] 

la 

> GD45AV5 

> BL 

> RELLENA 

> FIN 


Este procedimiento sitúa la tortuga don- 
de tiene que empezar a dibujar y a continua- 
ción hace una serie de llamadas a CAJON dan- 
do diferentes valores a la variable que utiliza: 

Una vez dibujados los cajones, se dibu- 
ja la parte superior del plinto: 

El procedimiento que dibuja los cajones 
es: 


? PARA CAJON :L 
> PONRUMBO 270 
> BL 

> AV:L 

> GD 100 

> AV 10 GD 80 
> AV L>4 

> GD 80 AV 10 
> Gl 135 AV 15 
> Gl 45 AV 10 

> Gl 135 AV 15 
> FIN 


La variable :L es la que determina la 
longitud que va a tener cada uno de los cajo- 
nes que tiene un plinto. 

Para ejecutarlo, basta con introducir: 


? PLINTO 


La palabra LOGO la hemos dibujado 
con los siguientes procedimientos. 


Asigna el valor introducido desde el teclado 


a una variable. 


"Y 


EXPERIENCIA Y PRACTICAS EN LOGO 


Primer procedimiento 


? PARA DEFID 

> BP 

> BL 

> MT 

> HAZ '"P 1 

> REPITE 1000 [POSID SI :F = 

[ALTO]] 

> FIN 

En este primer procedimiento iniciali- 
zamos la pantalla y ejecutamos 1000 veces, sal- 
vo que el valor de la variable F sea 70, el pro- 
cedimiento POSID, que, como veremos, se en- 
carga de leer una tecla y de analizarla. 


70 


Segundo procedimiento 


? PARA POSID 

> HAZ “B LEECAR 

> HAZ "F ASCII! :B 

> SI:F = 43 [HAZ “P :P + 1 ALTO] 

> SI:F = 45 [HAZ "P :P - 1 ALTO] 

> SI :F = 66 [BL ALTO] 

> SI :F = 83 [SL ALTO] 

> SI :F =71 [COMA ALTO] 

> SI:F =70 [ALTO ALTO] 

> HAZ "'B LEECAR 

> HAZ 'F ASCI :B X 

> SI:F = 72 [PONRUMBO 0 AV :P] 

> SI :F = 80 [PONRUMBO 180 AV :P] 

> SI :F = 75 [PONRUMBO 270 AV :P] 

> SI:F = 77 [PONRUMBO 90 AV :P] 

>FIN 

El procedimiento POSID lee una tecla y 
ejecuta las acciones que le hemos asignado a 
dicha tecla. 

Recuerda que estamos utilizando letras 
mayúsculas. 


5: 
— ?HAZ'"A'S 


? SI NUMERO? :A [ESCRIBE “CIER- 
TO] [ESCRIBE “FALSO] 
CORRECTO 
Para el LOGO las órdenes son correc- 
tas, aunque el resultado de la orden SI sea 
FALSO. 


— ?HAZ “A LEECAR 
? HAZ 'B LEECAR 
? SI:A > :B [ESCRIBE :A] 


Este ejemplo será correcto o incorrec- 
to, dependiendo de los datos que introduzca- 
mos desde el teclado. 

Si introducimos dos números, será todo 
CORRECTO. 

Si introducimos alguna letra (por ejem- 
plo la D), el LOGO devolverá el mensaje: 


> NO ACEPTA D COMO DATO. 


— ?HAZ'A 3 
? SI NUMERO? :A REPITE 20 [ESCRI- 
BE “"NUMERO] 
INCORRECTO 
La acción que debe ejecutarse si la con- 
dición se cumple no está encerrada entre cor- 
chetes. 


— ? HAZ "V AZAR 500 
? SL Y (V > 300) ((V < 350) [ALTO] 


CORRECTO 

La acción se realizará cuando la varia- 
ble :V contenga un número comprendido en- 
tre 301 y 349 ambos inclusive. 


— ? HAZ "V 10 
? HAZ "'B AZAR 10 
?SIO:V=10:B<5[AV 20] [RE 20] 


INCORRECTA. 

Las dos relaciones que hay en la condi- 
ción hay que encerrarlas entre paréntesis, ya 
que estamos utilizando un operador lógico. 


El código ASCII de e las letras mayúscula 
diferente al de las 


ADE 
rinúcenias 
ninusculas, 
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FANTASMAS EN TU 
ORDENADOR 


A estamos casi en disposi- 
ción de crear nuestro pri- 
mer juego completo. Lo úni- 
co que nos falta es ver algu- 
nas Cosas que nos hemos de- 
jado sueltas a lo largo de la 
obra, explicar el color en los 
ordenadores y dar algunos 


programas para ayudar al usuario a definirse 
sus propios caracteres gráficos. 
Lo primero que vamos a ver es cómo 


2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 


2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 


REM 

IN EEES 

REM * TABLA DE GANADORES * 

REM ASS OOOO OJO HOOK 

REM 

FOR I=1 TO 1000 

NEXT 1 

CLS:PRINT "PUNTUACIONES DE HOY" 


realizar tablas de RECORDS. Se recordará que 
en el tomo 12 vimos el programa del GUSANO 
LOCO. En este programa se incluía al final una 
rutina que nos permitía introducir nuestro 
nombre dentro de una tabla de RECORDS si 
nuestra puntuación estaba entre las mejores. 
En su momento, cuando explicamos el funcio- 
namiento del programa, dejamos sin explicar 
esta rutina en espera de un momento más ade- 
cuado para hacerlo. El programa que aparece 
a continuación es una copia de dicha rutina. 


PRINT:PRINT "===> ooo. j 


FOR I=4 TO 17 

LOCATE 1,1 

PRINT "45 TAB(40)5 515 
NEXT I 


PRINT "ooo - 
IF SC>=S(10) THEN LET S(10)=SC:LET A$(10)=CHR$(254) 


FOR I=1 TO 10 
FOR J=1 TO I 


IF S(J)<S(I) THEN LET A4=5(J):LET S(J)=S(1):LET S(1)=A:LET B$=A4$(J):LE 
T A$(3)=A$(I):LET A$(1)=BS 


NEXT J 
NEXT 1 
FOR I=1 TO 10 
IF A$(1)=CHR$(254) THEN LET PP= 
NEXT 1 
IF PP=0 THEN GOTO 2700 
ABURRE PE O NS Ta (E A 
FOR I=i TO 10 
LOCATE 5+1,3 


I 


15 


MANEJO DE SPRITES Y ELEMENTOS GRAFICOS 


.'5CHR$(29);:LET I=I-1:LET AS(PP 


2720 PRINT A$(T);TAB(30);5(1) 

2730 NEXT I 

2740 LOCATE 5+PP,3,1 

2750 LET AS(PP)="" 

2760 IF PP=0 THEN GOTO 2850 

2770 FOR I=1 TO 15 

2780 LET A$=INKEY$: IF A$="" THEN GOTO 2780 
2790 IF A$=CHR$(8) AND I>1 THEN PRINT CHR$(29);" 
)=MIDS(AS(PP), 1,1) 

2800 IF A$=" " THEN GOTO 2830 


2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 


PRINT A$;:LET A$(PP)=AS(PP)+AS 
NEXT 1 

LOCATE 1,1,0 

LOCATE 20,1 

PRINT “<<< PULSA UNA TECLA >>>" 


LOCATE 20,1 
GOTO 2330 


No se incluyen las modificaciones que 
hay que hacerle a este programa para que 
funcione en ordenadores distintos del IBM, 
porque ya se vieron en el tomo 12. La única ra- 
zón de que aparezca esta rutina aquí es para 
que sirva de referencia a la explicación que 
de ella vamos a dar. 

Antes de empezar con esta rutina hay 
que decir que hay muchas maneras de reali- 
zar una tabla de RECORDS. Este primer pro- 
grama nos ilustra una de las formas más sen- 
cillas de hacerlo, pero hay muchas otras. 

Para realizar una rutina que se encat- 
gue de gestionar los RECORDS conseguidos 
por el jugador hay que tener en cuenta que la 
rutina tiene que: tener las siguientes caracte- 
rísticas: 

— Ha de haber un vector que almace- 
ne los nombres de los jugadores que han con- 
seguido un récord. 

— También tiene que haber un vector 
con los puntuaciones de cada uno de estos ju- 
gadores. 

— Es conveniente que al principio del 
programa se almacenen en dichos vectores 
unos nombres y unas puntuaciones prefijadas 
por el programador para que la tabla de RE- 
CORDS no esté vacía. También es convenien- 
te hacerlo para que el jugador, al ver la tabla, 
se empeñe más en conseguir una buena pun- 
tuación para ganar a un oponente imaginario 
que consiguió una puntuación más alta que la 
suya. 
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IF A$=CHR$(13) THEN LET I=15:GOTO 2840 
IF A$<"0" OR A$>"z" THEN GOTO 2780 


LET A$=INKEYS: IF A$="" THEN GOTO 2880 


— La tabla ha de estar ordenada de ma- 
yor a menor puntuación. 


Una vez vistas las características que 
tiene que tener una tabla de puntuaciones, va- 
mos a ver algunos tipos de éstas. 

Hay muchas formas de realizar tablas 
de puntuación. Cada programa comercial rea- 
liza su propio tipo de tabla, pero podemos de- 
cir que todas se engloban en tres tipos. Estos 
son: 

— Tabla en la cual el usuario escribe su 
nombre mediante el teclado. En este tipo de 
tabla el usuario suele poder introducir entre 8 
y 15 letras para poner su nombre. El nombre 
se escribe pulsando las teclas que tienen las 
letras que forman el nombre, 

— Tabla en la que el usuario sólo pue- 
de introducir tres caracteres mediante el te- 
clado o palanca de juegos. En este tipo de ta- 
bla las tres letras no se suelen introducir pul- 
sando las teclas que correspondan, sino que 
se suelen utilizar las teclas de control del jue- 
go para introducirlas. Por lo general, se utili- 
zan las teclas de movimiento a la derecha, a 
la izquierda y la de disparo. La tecla de movi- 
miento hacia la derecha sirve para hacer que 
las letras vayan avanzando. La tecla que con- 
trola el movimiento hacia la izquierda sirve 
para hacer que las letras vayan retrocedien- 
do. La tecla de disparo sirve para fijar la letra 
en cuestión y pasar a la siguiente. Este tipo es 
bastante poco recomendable, porque no sue- 
le gustar al usuario y porque no permite la in- 


troducción de más de tres letras. Por supues- 
to, se puede hacer que el programa nos deje 
introducir 10 ó 15 letras, pero el método em- 
pleado para su fijación es bastante incómodo 
para el usuario. 

— El tercer tipo de tabla es mucho más 
imaginativo y da unos resultados muy buenos. 
Por una parte, en un trozo de la pantalla se im- 
primen los RECORDS y los nombres de los ju- 
gadores que ostentan dichos RECORDS. En 
otra parte de la pantalla se imprimen toda las 
letras que el jugador puede utilizar. La forma 
de escribir el nombre se puede hacer de mu- 
chas formas, Moviendo un cursor que se colo- 
que encima de la letra a elegir y pulsando la 
tecla de disparo; moviendo dos cursores en 
cuya intersección se encuentra la letra elegi- 
da y pulsar el disparo, etc. Cualquiera de las 
maneras que elijamos puede ir aderezada de 
sonidos o de otros efectos especiales. 


Una vez visto qué tipos de tabla pode- 
mos realizar para nuestros juegos y compren- 
dido que es una de las partes más importan- 
tes de los mismos, vamos a ver cómo funcio- 
naba el programa 1. ; 

Este programa utiliza dos vectores para 
almacenar la información referente a los RE- 
CORDS. Como máximo tendremos almacena- 
dos diez RECORDS. El nombre del jugador 
que haya conseguido un RECORD se compon- 
drá como máximo de 15 caracteres. Los dos 
vectores que utilizaremos serán: 


— A$O Para almacenar los nombres. 
— SO Para almacenar las puntuacio- 
nes. 


En las líneas 2500 y 2510 se realiza un 
bucle de retardo que en verdad no forma par- 
te de la rutina, pero que en el programa en 
que ésta estaba incluida era necesario. 

Lo primero que vamos a hacer va a ser 
dibujar un rectángulo que ocupe casi toda la 
pantalla dentro del cual imprimiremos'toda la 
información. Este recuadro puede y debe ser 
todo lo vistoso que podamos o queramos. En 
este caso no lo es mucho, debido a la necesi- 
dad de hacer que el programa sea compati- 
ble con todos los ordenadores. 


Línea 2520. Borramos la pantalla e im- 
primimos un mensaje que le dice al jugador 
cuál va a ser la información que va a ver apa- 
recer en la pantalla. 

Línea 2530. Dejamos una línea en blan- 
co e imprimimos el lado superior del rectán- 
gulo. Lo imprimimos a base de guiones (-). 


17 


Línea 2540. Comenzamos un bucle den- 
tro del cual vamos a imprimir los dos lados la- 
terales del rectángulo. 

Línea 2550. Colocamos el cursor en la 
posición que nos interesa. Cada vez colocamos 
el cursor una línea más abajo, tal como nos va 
indicando la variable índice del bucle (1. 

Línea 2560. Imprimimos un signo de ad- 
miración (!) en la primera columna de cada lí- 
nea y otro en la última columna, 

Línea 6570. Terminamos el bucle. 

Línea 6580. Imprimimos la línea inferior 
del rectángulo también con guiones (-). 


En la línea 2590 comprobamos si la pun- 
tuación que ha conseguido el jugador (en este 
caso viene dada por la variable SC) es mayor 
o igual a la última puntuación que tenemos al- 
macenada en la tabla. Como la tabla está or- 
denada de mayor a menor, si SC es mayor o 
igual que la última puntuación de la tabla, en- 
tonces dicha puntuación merece estar inclui- 
da en la tabla de RECORDS, En caso afirmati- 
vo, hacemos que el último elemento de la ta- 
bla sea igual a la puntuación conseguida por 
el usuario, También hacemos que el nombre 
de dicho jugador sea igual al carácter 254, Uno 
puede pensar que nos estamos cargando el 
nombre y la puntuación de una persona que 
estaba en la tabla, pero no es verdad. Como 
hay que incluir el nuevo RECORD en la tabla, 
sea cual sea la posición de éste, como sólo po- 
demos tener 10 RECORDS, tendremos que qui- 
tar por fuerza siempre el último de ellos. El 
por qué asignamos al último elemento de A$() 
el valor del carácter 284 es porque, más tar- 
de, una ver ordenados de nuevo todos los RE- 
CORDS, vamos a buscar cuál tiene por nom- 
bre el carácter 254 para preguntar al usuario 
cómo se llama. 

El siguiente grupo de líneas se encar- 
ga de reordenar la tabla de RECORDS basán- 
dose en la puntuación. 


Línea 2600. Comenzamos un bucle des- 
de uno hasta diez dentro del cual vamos a or- 
denar la tabla. Necesitaremos diez vueltas 
para ordenarla del todo. 


Línea 2610. Realizamos un bucle desde 
1 hasta el valor que tenga 1 en ese momento, 
Dentro de este segundo bucle se realizará la 
comparación de cuál es menor. Necesitamos 
dos bucles para comparar todos los RECORDS 
de la tabla entre sí. 


Línea 2620. Miramos si el RECORD al 
cual apunta la variable J es menor que al que 
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apunta la variable 1. En caso afirmativo hay 
que intercambiar las posiciones de ambos RE- 
CORDS. Para ello utilizamos una variable auxi- 
liar (A) que nos sirve para almacenar uno de 
los RECORDS durante un momento, para po- 
der realizar el intercambio. Lógicamente tam- 
bién intercambiamos los nombres que se en- 
cuentran almacenados en el vector A$0. Utili- 
zamos la variable B$ como auxiliar. 

Líneas 2630 y 2640. Terminamos los 
dos bucles que controlan la ordenación. 


A continuación tenemos un nuevo bucle 
gracias al cual vamos a encontrar en qué po- 
sición se ha quedado el nuevo RECORD que 
acabamos de almacenar, 


Línea 2650. Comenzamos el bucle des- 
de uno hasta diez, pues diez son los RECORDS 
que tenemos, 

Línea 2660. Miramos cuál de ellos tie- 
ne por nombre al carácter 254, Una vez que lo 
encontramos, almacenamos su posición en la 
variable PP. 

Línea 2670. Terminamos el bucle, 


Toda esta parte del programa se ha eje- 
cutado sin mirar realmente si había habido un 
nuevo RECORD, por ello, en la línea 2680, com- 
probamos si PP es igual a cero (0). En caso afir- 
mativo, significa que no hubo nuevo RECORD, 
por lo que vamos a la línea 2700 para saltar- 
nos la que viene a continuación. 

En la línea 2690 hacemos que el elemen- 
to de A$( que corresponde a la posición PP 
sea igual a 15 puntos. Esto se hace así para 
que, a la hora de imprimir la tabla de RE- 
CORDS, en el lugar donde el jugador tiene 
que poner su nombre, aparezca una serie de 
puntos. 

El grupo:de líneas que vienen a conti- 
nuación nos van a imprimir toda la tabla de RE- 
CORDS en la pantalla. Primero imprimiremos 
el nombre y a su lado la puntuación obtenida 
por esa persona. 


Línea 2700. Como tenemos 10 RE- 
CORDS, realizamos un bucle de uno a diez. 

Línea 2710. Colocamos el cursor en la 
tercera colurmna de la línea 5+1. 

Línea 2720. Imprimimos el nombre, y 
más adelante la puntuación obtenida por di- 
cha persona. 

Línea 2730. Terminamos el bucle. 

Las líneas que vienen a continuación 


permitirán que el jugador introduzca su nom- 
bre tecleándolo desde el teclado, 
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Línea 2740. Colocamos el cursor en la 
tercera columna de la línea donde está el RE- 
CORD del jugador. Esto lo podemos hacer por- 
que conocemos su posición en la pantalla gra- 
cias a la variable PP que almacenaba la posi- 
ción del nuevo RECORD en la lista. 

Línea 2750. Borramos toda la informa- 
ción que había en A$(PP), esto es necesario 
porque ahora el jugador va a introducir su 
nombre y dicho nombre tiene que estar alma- 
cenado en A$(PP). 

Línea 2760. Volvemos a preguntar si PP 
es igual a cero; en caso afirmativo, como ya he- 
mos dicho, es que no ha habido nuevo RE- 
CORD. En tal caso nos vamos a la línea 2850 y 
nos saltamos la parte del programa que per- 
mite la introducción del nombre. 

Línea 2770. Realizamos un bucle desde 
uno hasta quince dentro del cual iremos reco- 
giendo, letra a letra, el nombre del jugador. El 
bucle se repite quince veces porque dicho 
nombre tiene que tener como máximo quince 
letras. 

Línea 2780. Miramos si el jugador ha 
pulsado alguna tecla. En caso negativo volve- 
mos a mirar hasta que lo haga. 

Línea 2790. Si el usuario quería borrar 
la última letra escrita y había alguna letra es- 
crita, la borramos de la pantalla, imprimimos 
en su lugar un punto, le restamos uno al con- 
tador de caracteres introducidos y quitamos 
de A$(PP) la última letra introducida. 

Línea 2800. Si pulsó la barra de espa- 
cio nos vamos a la línea 2830 para procesarla. 

Línea 2810. Si pulsó la tecla RETURN (o 
ENTER) es que el jugador ha terminado de es- 
cribir su nombre. Por ello, ponemos el conta- 
dor de caracteres introducidos (I) a 15, y nos 
vamos a la línea 2840. 

Línea 2820. Si el jugador pulsó una te- 
cla con código ASCII menor que cero (0) o ma- 
yor que zeta (Z), entonces nos volvemos a la lí- 
nea 2780 porque la tecla pulsada no es válida. 
El carácter espacio en blanco y retorno de 
carro tienen un código ASCII menor que el 
cero, por ello se pregunta por ellos antes de 
llegar a esta línea, para que puedan ser váli- 
dos. 

Línea 2830. Imprimimos la tecla pulsa- 
da, dejando el cursor al lado de ella y conca- 
tenamos A$(PP) con la tecla pulsada. 

Línea 2840. Terminamos el bucle y nos 
vamos a recoger la siguiente tecla del tecla- 
do, siempre que no hayamos tecleado las quin- 
ce permitidas, en cuyo caso el bucle se acaba 
y pasamos a la siguiente línea. 


NIE RARAS SR 


Línea 2850. Hacemos desaparecer el 
cursor que antes habíamos hecho visible. 

Línea 2860. Colocamos el cursor en la 
línea 20. 

- Línea 2870. Imprimimos un mensaje 
para que el jugador pulse una tecla cuando 
esté listo. 

Línea 2880. Esperamos hasta que se 
pulse una tecla cualquiera. 


A partir de esta línea podemos conside- 
rar que la rutina se ha terminado. Aunque que- 
dan dos líneas más, éstas pertenecen a la es- 


REM 
REM 
REM 
REM 
REM 
FOR I=1 TO 1000 
NEXT 1 
CES 
PRINT "PUNTUACIONES DE HOY" 
PRINT 
PRINT * 
FOR I=4 TO 17 
BREN Da me 
NEXT I 
PRINT 


ES 


* TABLA DE GANADORES +* 
JJOO OOOO IOIOOIoJOr 


¡TAB(40);"!" 


FOR I=1 TO 10 
FOR J=1 TO 1 
2540 
T A$(J)=4$(1):LET A$(1)=B5 
2545 NEXT J 
2550 NEXT 1 
2555 FOR I=1 TO 10 
2560 
2565 
2570 
2575 
2580 
2585 
2590 
2595 
2600 
2605 
2610 
2615 
2820 
2625 
2630 
2635 
2640 
2645 
2650 


NEXT 1 
IF PP=0 THEN GOTO 2715 
LET AS(PP)="***" 
FOR I=1 TO 10 
LOCATE 5+1,3 
PRINT A$(1);" 
NEXT 1 
IF PP=0 THEN GOTO 2715 
LOCATE 5+PP,3 
LET A$(PP)="" 
LET C=2 
LET X=0 
LET Z$=" 
FOR 1=1 TO 3 
LOCATE 5+PP,2+1 
PRINT MID$(Z$,C, 1) 
LET BS=INKEYS$: IF B$="" 


IF A$(1)=CHBR$(254) THEN LET PP=1I 


ABCDEFGHIJKLMNOPQRSTUVWXYZ.,;: 
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tructura del programa dentro del cual está in- 
cluida esta rutina. 

Hemos hablado de los tres tipos de ru- 
tinas que podemos realizar para crear nues- 
tras propias tablas de RECORDS en nuestros 
programas. A continuación vamos a ver un 
ejemplo del segundo tipo. En este caso el 
usuario sólo podrá introducir tres letras utili- 
zando las teclas de movimiento. Estas teclas 
serán: ] 

O Izquierda 
P Derecha 
M Fuego 


IF SC>=S(10) THEN LET S(10)=SC:LET A$(10)=CHR$(254) 


IF S(J)<S(1) THEN LET A=S(J):LET S(J)=S(I):LET S(I)=A:LET B$=A$(J):LE 


";TAB(30);5(1) 


ORG /B 00" 


THEN GOTO 2645 
IF B9="P" OR Pg="p" THEN LET C=C+1:GOTO 2670 


MANEJO DE SPRITES Y ELEMENTOS GRAFICOS 


ROBO IF B4="0" OR By="0" THEN LET C=C-1:GOTO 2670 

4000 IN Bg="M" OR B$="m" THEN LET X=-1:GOTO 2670 
. 2006 GOTO 2645 

2070 LOCATE 5+PP,2+1 

207 IF X=-1 THEN GOTO 2700 

2000 IF C>LEN(Z$) THEN LET C=1 

2005 IF C<1 THEN LET C=LEN(Z$) 

2090 PRINT MID$(Z$,C,1)' 

2095 GOTO 2645 

2700 LET AS(PP)=AS(PP)+MID$(Z$,C,1) 

2705 LET X=0 

2710 NEXT 1 


2715 LOCATE 20,1 ; 
2720 PRINT “<< PULSA UNA TECLA >>" 
2725 LET B$=INKEYS$ 

2730 IF B$="" THEN GOTO 2725 

2735 LOCATE 20,1 

2740 GOTO 2330 


Si ejecutamos esta rutina tal y como 
está, no vamos a conseguir mucho, ya que no 
hemos dimensionado los vectores que utiliza- 
mos y tampoco hemos introducido los nom- 
bres y las puntuaciones ficticias de las que ha- 
blábamos. Si juntamos el programa número 
dos con el número tres y hacemos RUN, vere- 

- mos cómo funciona. Otra solución es introdu- 


REM 
REM 


REM 


REM 
CcLS 
DIM 
DIM 


AS(10) 

S(10) 

LET PP=0 

FOR I=1 TO 10 
READ A$(1),S(I) 

NEXT 1 


GOSUB 2450 
CLS 


END 
REM 


INPUT "QUE PUNTUACION QUIERES TENER 


cir esta rutina en el programa del GUSANO 
LOCO en las mismas líneas que ocupaba la ru- 
tina que acabamos de explicar. Aunque am- 
bas rutinas comparten bastantes números de 
línea, si incluimos esta rutina en el programa 
GUSANO LOCO tendremos que borrar las lí- 
neas que van desde la 2750 hasta la 2900 en el 
programa original. , 


ASOMO Sl lalloolSlololOjolak 
* PROGRAMA DEMO PARA VER * 
REM * EL FUNCIONAMIENTO DE x 
* LA RUTINA DE RECORDS. * 
REM dado lalolollolololalololololojok 


SE 


PRINT "FIN DE LA DEMOSTRACION" 


REM AAA Ol olaaa olaaa lalalala ok 
REM * DATAS CON NOMBRES Y PUNTUACIONES FICTICIAS * 
REM osa ida alli dolio oK 
REM 

DATA “FMG",12455 

DATA "JYH”, 11022 
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380 
390 


410 
420 


Las modificaciones que hay que reali- 
zar en el programa número 2 para que pueda 
funcionar en ordenadores distintos del IBM 
son las siguientes: 


COMMODORE: 


2485 PRINT CHR$(147) 

2510 PRINT "":TAB(39);""" 

2585 POKE 214,5+I1:POKE 211,3 

2605 POKE 214,5+PP:POKE 211,3 

2635 POKE 214,5+PP:POKE 211,2+1 
2645 GET B$:IF B$=" THEN GOTO 2645 
2670 POKE 214,5+PP:POKE 211,2+1 
2715 POKE 214,20:POKE 211,1 

2728 GET B$ 

2735 POKE 214,20:POKE 211,1 


SPECTRUM: 


2510 PRINT "";TAB(31);"" 

2585 PRINT AT 5+1,3; 

2590 PRINT ARM tuicicconicno. "TAB(25):50) 
2605 PRINT AT 5+PP,3; 

2635 'PRINT AT 5+PP,2+l; 

2640 PRINT Z$(C) 


NEO 
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10 a 


30 . El 


AIRE NDS 5 INDIRA > 
A SI NOS 


UD] e 


2670 PRINT AT 5+PP,2+l; 

2690 PRINT Z$(C) 

2100 LET A$(PP)=A$(PP)+Z$(C) 
2715 PRINT AT 20,0; 

2735 PRINT AT 20,0; 


MSX Y AMSTRAD: 


2585 LOCATE 3,5+1 
2605 LOCATE 3,5+PP 
2635 LOCATE 2+1,5+PP 
2670 LOCATE 2+1,5+PP 
2715 LOCATE 1,20 
2735 LOCATE 1,20 


A continuación aparecen las modifica- 
ciones que hay que realizar en el tercer pro- 
grama para que funcione en el COMMODORE 
y en SPECTRUM. 


COMMODORE: 


160 PRINT CHR$(147) 
250 PRINT CHR$(47) 


SPECTRUM: 
170 DIM A$(10,3) 


TRUCOS Y RUTINAS BASICAS = 


N el tomo anterior vimos una 
serie de programas que nos 
permitían la realización de 
letras más grandes de las 
normales con nuestro orde- 
nador. Se propusieron una 
serie de cambios en estos 
programas, pero no se ex- 
plicó nada acerca de ellos. A continuación va- 
mos a explicar cuál era su funcionamiento y 
vamos a ver algunos programas más que rea- 
lizan la misma función, pero de diferente for- 
ma. 

Primero vamos a explicar el primer 
programa. Este nos permitía imprimir mensa- 
jes ocho veces más grandes de lo normal, pero 
era excesivamente lento. Veamos su funciona- 
miento. 

Para que el programa funcionase te- 
níamos que almacenar en A$ el mensaje que 
queríamos imprimir. También había que darle 
las coordenadas de la pantalla donde quería- 
mos que se imprimiese el mensaje. Esto lo ha- 
cíamos dándole valores a X y a Y. 


Línea 6230. Comenzamos un bucle que 
va desde uno (1) hasta la longitud del mensa- 
je a imprimir. Dentro de este bucle vamos a 
imprimir dicho mensaje letra a letra. 

Línea 6240. Hacíamos un RESTORE a 
las líneas de DATAS para colocar el puntero 
de lectura al principio de ellas. 

Línea 6250. Almacenamos en la varia- 

' ble numérica N el código ASCII de la letra que 
tenemos que imprimir. 

Línea 6260. Le restamos 32 a N porque 
no tenemos definidos los primeros 31 caracte- 
res de la tabla. Hay que recordar que estos ca- 
racteres son de control y no son visibles como 
caracteres propiamente dichos. 
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Línea 6270. Como cada definición de 
cada carácter se compone de ocho bytes, te- 
nemos que multiplicar el número almacenado 
en N por ocho para saber en qué posición de 
las líneas DATA se encuentra su definición. 


Líneas 6280 a 6300. Como no podemos 
colocarnos en la línea de DATA que nos inte- 
rese de una forma automática, tenemos que 
leer todos los valores que se encuentran antes 
de los que definen el carácter que tenemos 
que imprimir, para colocar el puntero en el lu- 
gar que nosotros deseamos. Estas son las lí- 
neas que van a hacer que el programa sea de- 
masiado lento. Por supuesto, podríamos colo- 
car el puntero de las líneas DATA en el lugar 
apropiado usando la instrucción RESTORE, 
pero como tenemos muchas letras definidas, 
necesitaríamos muchas líneas RESTORE para 
hacerlo. 


Línea 6310. Una vez que tenemos el 
puntero colocado en la posición de las líneas 
DATA donde empieza la definición del carác- 
ter que queremos imprimir, comenzamos un 
bucle de uno a ocho dentro del cual vamos a 
leer cada uno de estos valores, vamos a pasar- 
lo a binario y vamos a dibujar cada línea del 
carácter. 

Línea 6320. Leemos cada byte de la de- 
finición. 

Línea 6330. Colocamos el cursor donde 
corresponde. 

Líneas 6340 a 6490. En este grupo tan 
largo de líneas vamos comprobando que un 
determinado bit del byte que estamos utilizan- 
do está encendido o apagado. Si está encen- 
dido, imprimiremos un cuadrado en la panta- 
lla y si éste está apagado, imprimiremos un 
blanco, Para ello miramos si el valor del byte 
es igual o superior a un cierto valor. Cada va- 


lor corresponde al valor de un bit en el byte. 
Cada vez que nos encontramos con que uno 
de esos valores existe, imprimimos un cuadra- 
do y restamos al byte el valor de dicho bit. Si 
dicho valor no existe, entonces, como dicho bit 
está a cero (0), imprimimos un espacio en 
blanco. 

Línea 6500. Como se utilizó el punto y 
coma para que el ordenador no cambiase de 
línea hasta que se hubiese impreso una línea 
entera, hacemos que cambie de línea con un 
PRINT sin punto y coma (;). 

Línea 6510. Terminamos el bucle. 

Línea 6520. Cuando el ordenador llega 
a esta línea de programa, ya ha impreso una 
letra entera. Como la siguiente letra tiene que 
estar a la derecha de la anterior y como cada 
letra ocupa ocho caracteres, tenemos que su- 
mar ocho a la variable X que nos dice en qué 
columna tenemos que imprimir. 

Línea 6530. Si hemos llegado al borde 
de la pantalla hacemos que X tenga valor uno 
(1) y sumamos ocho a la variable Y para que 
la continuación del mensaje se imprima ocho 
líneas más abajo. 1 

Línea 6540. Aquí termina el segundo 
bucle para continuar con la siguiente letra del 
mensaje a imprimir. 

Línea 6550. Devolvemos el control al 
programa principal. 

Líneas 8000 a 9020. Se encuentran las 
líneas DATA que almacenan las definiciones 
de las letras que van desde el espacio en blan- 
co hasta el último carácter que no es semigrá- 
fico. Estas letras son: 


1H$N8'O'+,-./0123456789:; <=>? ABCDEFCG- 
HIJKLMNOPORSTUVWXYZ[X]- 'abcdefg- 
hijkImnopqrstuvwxyzi!! 


A continuación vimos un programa 
que nos permitía visualizar todos los caracte- 
res que habíamos definido para ver si alguno 
. de ellos no estaba bien y nos habíamos equi- 
vocado al introducir las líneas DATA. 

El tercero de los programas era una 
demostración para que el usuario introdujese 
sus propios mensajes y viese cómo aparecían 
en pantalla. 

De estos dos últimos programas no 
hace falta explicar nada debido a su simplici- 
dad. 

El programa número cuatro nos per- 
mitiría imprimir los caracteres invertidos, Esto 
es, dibujar su contorno en vez de su figura. 
Esto lo conseguíamos imprimiendo un cubo 
cuando un bit fuese cero e imprimiendo un es- 
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pacio en blanco cuando dicho bit fuera un uno. 
Como se puede apreciar, esta operación es la 
inversa de la que realiza el primer programa. 


El siguiente programa (el número 5) 
imprimía los caracteres con asteriscos (*) en 
vez de con cuadrados. La forma era la misma 
que en el programa 1. Si un bit estaba a uno, 
imprimíamos un asterisco y si estaba a cero, 
un espacio en blanco. 


El sexto hacía que cada letra estuvie- 
se formada por sí misma. Esto es, si imprimía- 
mos una 'A', ésta estaba formada por A's. Si 
imprimíamos una 'j', ésta estaba formada por 
j's. La forma de hacer esto era definir una va- 
riable alfanumérica B$ al principio de cada 
bucle y cuyo valor tenía que ser la letra que 
queríamos representar. A la hora de dibujar 
la letra, en vez de utilizar cuadraditos utilizá- 
bamos el valor de Bf. 


Por fin, y ya para terminar con los 
programas vistos en el tomo anterior, realiza- 
mos otro programa de impresión de caracte- 
res gigantes que era mucho más rápido. La 
única dificultad que tenía era que ocupaba de- 
masiada memoria, 


Su funcionamiento es igual que el 
programa 1. En A$ tenemos que almacenar el 
mensaje a imprimir y en X y en Y las coorde- 
nadas donde queremos que empiece el men- 
saje. Este programa almacenaba todas las de- 
finiciones de los caracteres en una matriz lla- 
mada D(. Con ello ganábamos velocidad al di- 
bujar un carácter, y que el acceso a una va- 
riable es inmediato y mucho más rápido que 
a las líneas DATAS. Lo único que había que ha- 
cer para utilizar esta rutina era llamar a la lí- 
nea 6000 antes de ejecutarla por primera vez 
para que el ordenador cargase en el vector 
DO la definición de todos los caracteres. Una 
vez hecho esto, si queríamos utilizar la rutina 
sólo teníamos que llamar a la línea 7000. 


El funcionamiento de este programa 
es muy parecido al primero. La única diferen- 
cia está en que al principio leemos todos los 
valores de las líneas DATA y que en vez de 
buscar el carácter a definir en estas líneas lo 
buscamos en una matriz. La matriz está com- 
puesta de 96 x 8 elementos. El primer número 
nos lo da el número de carácter menos 31. La 
segunda dimensión almacena cada una de las 
ocho filas que definen dicho carácter. 


A continuación vamos a ver un pro- 
grama que siendo igual de rápido que el últi- 
mo que acabamos de ver, utiliza menos memo- 


TRUCOS Y RUTINAS BASICAS 


ria para el almacenamiento de los caracteres. velocidad y, como se gana memoria, hace que 
La forma de encontrar la posición de un ca-  nuetra rutina sea más práctica. 
rácter es más complicada, pero no se pierde 


6000 
6010 
6020 
6030 
5040 
6050 
80560 
6070 
8080 
6090 
6100 
5110 
2120 
6130 
8140 
20150 
6160 
6179 
6180 
B190 
£200 
6210 
6220 
8230 
6240 
6250 
6269 
0270 
6230 
6290 
82300 
6310 
8320 
6330 
6340 
6350 
8360 
4 8370 
6380 
*. 6390 
ab $400 
6410 
8420 
56430 
5440 
5450 
6460 
6470 
6450 
7000 
7010 
7020 
7030 
7040 
7059 
oso 
7070 
7080 
7090 


REM RSS lajalO lalalala oo lola lalalala lalalala loiololdialolalalldidiololok 


REM x* * 
REM * << IMPRESION DE CARACTERES GIGANTES >>> k 
REM + ? ; A 
REM * VARIABLES QUE HAY QUE PASARLE A LA RUTINA k 
REM A o * 
REM * K 
REM + Aj = MENSAJE A IMPRIMIR * 
REM + X <= COLUMNA DONDE EMPEZARA EL MESAJE * 
REM + Y = FILA DONDE SE COLOCARA EL MESAJE * 
REM k * 
REM * VARIABLES USADAS POR LA RUTINA * 
REM Y. ooo. -- * 
REM * * 
REM * T - CONTADOR PARA SABER QUE LAS DATAS SON CORRECTAS+* 
REM + A < VARIABLE QUE RECOGE EL DATO DE LA MATRIZ + 
REM * 1. = VARIABLE INDICE DEL PRIMER BUCLE + 
REM * J  = VARIABLE INDICE DEL SEGUNDO BUCLE * 
REM * N()= MATRIZ QUE ALMACENA LAS DEFINICIONES * 
REM * L = LINEA EN LA QUE ESTA LA DEFINICION + 
REM * P- = POSICION DE LA DEFINICION EN DICHA LINEA * 
REM * N = CODIGO ASCII DE LA LETRA A IMPRIMIR- + 
BEM * B$ = BITE A REPRESENTAR EN HEXADECIMAL k 
REM * k 
REM * LA RUTINA NO DEVUELVE NINGUN VALOR * 
REM * : k 
REM Ha OSORIO ol odo aloja aalolalolalCIoIoIoA 
REM , 

REM ROI lolo llolollol 


REM 4 LECTURA DE-LAS DATAS Y ALMACENAMIENTO + 
REM aaa o OO II O II o ooo 
REM 
DEF ENZ=16x*(INSTR(Z$,MID$(BS, 1, 1))-1)+I82TR(Z4, MIDS(D3, 2,1))-J 
LET Z2$="0123455789ABCDEF" 
DIM N$(24) 
LET T=0 
LET L=3070 
FOR I=1 TO 24 
READ 43,A 
FOR J-i TO LEN(Af+) STEP 2 
LET B$=MIDS3(A5$,J,2) 
LET T=T+FNZ 
NEXT 3 
IF T<>A THEN PRINT “ERROR EN LA LINEA “;L:END 
LET T=0 
LET L=L+20 
LET N$(1)=4$ 
NEXT I 
RETURN 
REM 
REM MRS lll dolor 
REM + PROGRAMA PRINCIPAL * 
REM oa Socio look 
REM 
FOR I=1 TO LEN(a$) 
LET N=ASC(MID$(A3,1,1)) 
LET N=N-31 
LET L=INT(N/4)+1 
LET P=N-4x(L-1) 
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7100 LET P=(P 1)*16+1 
7110 IF P<O THEN LET L=L-1:LET P=49 
7120 FOR J=1 TO 8 


7130 LOCATE Y+J-1,X 
7140 LET BS=-MIDS(N$(L),P+2*J-2, 2) 
7150 LET A=FNZ 
7160 IF A>=128 THEN LET 4=A-128:PRINT CHR$(219);:GOTO 7180 
T17C PRINT-"-”; . 
- 7180 1F A>=64 THEN LET A=A-64:PRINT CHR$(219);:GOTO 7200 
7190 PRENTD 00 
7200 IF A>=32 THEN LET A=A-32:PRINT CHR$(219);:GOTO 7220 
7210 PRIN DA! e: 
7220 IF A>=16 THEN LET A=A-18:PRINT CHR$(219);:GOTO 7240 
7230 PRINTS 
7240 IF A>=8 THEN LET A=4-8:PRINT CHR$(219);:GOTO 7260 e 
7250 PRENTOMs = 
7260 IN A>>4 THEN LET A A4-4:PRINT CHR$(219);:G0TO 7230 
7270 PRINVO NS 
72380 1F A4>=2 THEN LET AA 2:PRINT CHR$(219);:G0TO 7300 
7296 RUNTIME NS 
7300 1F A=1 THEN PRINT CBR$(219);:G0T0 7320 
7310 PRINT LULA 
732 PRINT 


7320 NEXT J 
7340 LET X=X+8 
7350 IF X>80 THEN LET X=1:LET Y=Y+8 
7360 NEXT 1 
8000 REM 1 
3010 REM Ada OOOO OOOO ok 
3020 REM * LINEAS DE DATAS CON NUMEROS x 
520230 REM * EN HEXADECIMAL CON LA DEFI- x 
8040 REM * NICION DE LOS CARACTERES.  Xk 
8030 REM AAA a O OOOO jolooOjokok 
8080 REM . 
8070 DATA "900000000000000013131818180018006C6C6C00000000006CECFE7CFE6CECOO" 
32080 DATA 1532 
8090 DATA "183E583C147C18000063660C13336300386C3876DCDC76001818300000000000" 
3100 DATA.1787 : 
38110 DATA "0C18303030180C0030180C0C0C183000008663CFF3C6600000018187E13180000" 
8120 DATA 1197 
8130 DATA "00000000001818300000007E000000000000000000181800060C183060C08000" 

- 8140 DATA 776 
8150 DATA "7CC6CED8E6C87C001838181818187E003C86063C60867E003C46061C06663C00" 
8160 DATA 2480 
8170 DATA "18385898FE183C007E62603C06863C003C68607C66863C007E48080C18181800" 
8180 DATA 2138 : 
38190 DATA "3C66663C8686663C003C86663E06663C0000001818001818000000181800181830" 4 
8200 DATA 1322 ' 
8210 DATA "0C18308030180C0000007E00007E00006030180C183080003C66060C18001800” 
8220 DATA 1092 
8230 DATA "7CC6DEDEDECO7CO0183C66667E668600FC66867C6666FC003C66C0COCOB63C00" 
8240 DATA 3858 t 
8250 DATA "F86C8666666CF800FE6268786862FE00FE6268786860F0003C86COCOCEC67E00” 
8260 DATA 4142 
8270 DATA “6666667E666666007E18181818187E001E0C0C0CCCCC7800E6666C786C68ES00" 
8280 DATA 2704 
8290 DATA "FOS6060608268FEOOCSEEFEDSDECSCAOOCSESFEDECECECSOOIE6CCECSCESCIBOO" 
8300 DATA 4916 
8310 DATA "FC6666786060F000386CC6CBDACC7I600FC66667C6C66E2003C66603C088663C00" 
8320 DATA 3610 
8330 DATA “7E5A181818183C006666686866663C0088686666663C1800C6C86C6DSFEEEC600" 
8340 DATA 3136 Í 
8350 DATA "C66C38386CC6C8006666663C18183C00FEC88C1832686FE003C303030380303C00" 
8380 DATA 2778 
8370 DATA "CO6030180C0603013C0C0C0C0C0C3C00183C7E181818180000000000000000FF" 
8380 DATA 1123 
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1390 DATA "0030180C000000000000780C7CCC7600E0E07C0666666BC0000003C66606863C00” 


B400 DATA 2148 


1410 DATA "1C00C7CCCecec760000003C667E803C001C3630783030780000003E66663E067C" 


B420 DATA 2262 


1430 DATA "E0606C0766666E6001800381818183C0002000E060686663CE060666C786CE800” 


8440 DATA 2472 


450 DATA "3818181818183C0000006CFED6DECE000000D36566666660000003C6666653C00" 


| 8460 DATA 2274 


8470 DATA "0000DC85657C80F0000078CCCC7COCIEOOOOD8ECSO6OFO0000003C603C067C00* 


B4B0 DATA 2678 


BA490 DATA “30307C3030361C0000006666666683E0000008666663C18000000C6D6DEFESCOO” 


85800 DATA 2246 


B510 DATA "0000C66C386CC500000066556663E067C00007E4C18307E000E18187018180E00” 


8520 DATA 1802 


8530 DATA "18181818181818007018180E1818700076D8000000000000CC33CC33CC33CC33" 


8540 DATA 1856 


Como se puede apreciar, la defini- 
ción de los caracteres está en hexadecimal. 
Con ello ganamos bastante, ya que un número 
en hexadecimal siempre ocupa dos bytes en 
las líneas DATA y los números en decimal ocu- 
pan por lo menos dos y puede llegar a ocupar 
cuatro. Si uno se fija en las líneas DATA, verá 
que éstas son una ristra sin sentido de núme- 
ros y letras sin comas. Cada línea DATA ocu- 
pa 64 bytes y almacena 32 números en nota- 
ción hexadecimal. De momento ya hemos 
ahorrado algo de memoria. 

Por otra parte, a la hora de almace- 
nar estas ristras de números y letras en la me- 
moria, lo haremos dentro de un vector alfanu- 
mérico. Los vectores alfanuméricos ocupan, 
por lo general, menos memoria que las tablas 
numéricas. Realizando este tipo de almacena- 
miento también ahorramos memoria. 

El programa funciona en el IBM y 
compatibles; para los demás ordenadores las 
modificaciones'que hay que realizar son: 


COMMODORE: 


6320 REM 

6410 GOSUB 7500:LET T=T+R 

7130 POKE 214,Y+]-1:POKE 211,X 

7150 GOSUB 7500:LET A=R 

7350 IF X>40 THEN LET X=1:LET Y=Y-8 


Hay que sustituir todos los CHR$(219) 
por CHR$(166), tal y como se hizo en el tomo 
anterior. 

También hay que incluir el siguiente 
grupo de líneas: 


7500 REM 

7510 REM RAHAARARARA REA AA RARA EA RARE RARE RAE AA RATA ARHAHAL RARA RA HAHAHA .eoro 
7520 REM * PASO DE HEXADECIMAL A DECIMAL * 
7530 REM “errar rara nacer rn cananea rra rro 
7540 REM 


7550 LET R=0 

71560 FOR K=1 TO 2 

7510 FOR O=1 TO 16 

7580 IF MID$(Z$,0,1)<>MID$(B$,K,1) THEN GOTO 7600 
7590 LET R=R+INT((O-1)'(16"(2-K)+.5:LET O=16 

7600 NEXT O 

7610 NEXT K 

7620 RETURN 


SPECTRUM: 


6320 REM 
6340 DIM N$(24,64) 

6400 LET B$=A$(] TO J+1) 

6410 GOSUB 7500:LET T=T+R 

7060 LET N=CODE(A$()) 

7130 PRINT AT Y+]-1,X: 

7140 LET B$=N$(L,P+2'J-2 TO P+2']-1) 
7150 GOSUB 7500:LET A=R 

7350 IF X>32 THEN LET X=1:LET Y=Y+8 


También hay que cambiar todos los 
CHR$(219) por CHR$(143), como se vio en el 
tomo anterior. 

Hay que unir el programa con las si- 
guientes líneas: 


7500 REM 

7510 REM a... ARHARESAARALARRADRARARARERALARLAS 
7520 REM * PASO DE HEXADECIMAL A DECIMAL * 
7530 REM trtertrterrrn nano naa na RAR RAR RARA RRA RAR RARA AURA R AMAR AAA 


ARAAREAARA RARA RARA LAA RARAA 


7560 FOR K=1 TO 2 

7570 FOR O=1 TO 16 

7580 IF Z$(O)<>B$(K) THEN GOTO 7600 

7590 LET R=R+INT((O-1)'(16(2-K)+.5:LET O=16 
7600 NEXT O 

7610 NEXT K 

7620 RETURN 


MSX: 


7130 LOCATE X, Y+J-1 
7350 IF X>40 THEN LET X=1:LET Y=Y+8 


AMSTRAD: 
7130 LOCATE X,Y+]-1 


Si no se utiliza el programa en el 
modo 2 de pantalla, hay que variar la siguien- 
te línea: 


7530 IF X>40 THEN X=1:Y=Y+8:REM PARA EL MODO 1 
7350 IF X>32 THEN X=1:Y=Y+8:REM PARA EL MODO 0 


El funcionamiento del programa línea 
a línea es el siguiente: 

Entre las líneas 6000 y 6480 se alma- 
cena el contenido de las líneas DATA en el 
vector alfanumérico N$(. También se realiza 
una comprobación numérica para ver si el 
usuario ha introducido correctamente las lí- 
neas DATAS. En el caso de que hubiese algún 
error en ellas, el programa lo indicaría y nos 
diría en qué línea. 


Línea 6320. Se define una función que 
se encargará de pasarnos los números en 
hexadecimal a decimal. En el COMMODORE 
y en el SPECTRUM, como no tienen la función 
INSTR, se ha realizado una subrutina aparte, 
que empieza a partir de la línea 7500 para que 
nos haga dicho cambio. La explicación de di- 
cha rutina puede encontrarse en el segundo 
tomo de esta colección, 


Línea 6330. Definimos una variable al- 
fanumérica (Z$) que almacena todos los dígi- 
tos posibles en hexadecimal. Esta variable 
será utilizada por la función de la línea de arri- 
ba. 


Línea 6340. Definimos el vector que al- 
macenará toda la información de las líneas 
DATA. 


Línea 6350. Ponemos la variable T a 
cero. Esta variable será la encargada de su- 
mar los números que hay almacenados en 
hexadecimal en las líneas DATA. Después de 
almacenar cada línea, compararemos el valor 
de T con el número de control que también es- 
tán en las líneas DATA para saber si son igua- 
les. En el caso de que sean distintos, imprimi- 
remos un mensaje de error. 

Línea 6360. Almacenamos en la varia- 
ble L el valor 8070. Este número es el número 
de línea donde se encuentra la primera línea 
DATA. Gracias a esta variable podremos de- 
cirle al usuario qué línea tiene una DATA in- 
correcta. 

Línea 6370. Comenzamos un bucle des- 
de 1 hasta 24 dentro del cual leeremos las lí- 
neas DATA. Como hay 24 líneas DATA, tene- 
mos que leer 24 veces, 

Línea 6380. Leemos la cadena en hexa- 
decimal y el número de control. 
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Línea 6390. Comenzamos un bucle den- 
tro del cual vamos a transformar todos los nú- 
meros en hexadecimal que hemos leído en de- 
cimal y vamos a ver si su suma coincide con 
el número de control. 


Línea 6400. Cogemos los caracteres de 
la cadena A$ de dos en dos y los almacena- 
mos en Bf, 


Línea 6410. Sumamos a T el valor de di- 
chos números en decimal. 


Línea 6420. Y terminamos el bucle. 


Línea 6430. Si la suma es distinta del 
control, imprimimos un mensaje de error y de- 
cimos en qué línea se encuentra. También ter- 
minamos el programa. 


Línea 6440. Si el número coincide con 
el control, hacemos que uno sea igual a cero, 
para continuar con la siguiente línea de DATA, 


Línea 6450. Sumamos 20 al contador de 
líneas. Esto se hace así porque las líneas DATA 
que contienen la definición de los caracteres 
en hexadecimal se encuentran en números de 
línea que tienen una difrencia de 20 entre una 
y otra. 


Línea 6460. Almacenamos las línea de 
DATA leída en el vector. 

Línea 6470. Terminamos el bucle para 
leer la siguiente línea. 

Línea 6480. Y devolvemos el control al 
programa principal. 

Esta parte del programa tiene que 
ser llamada antes de ejecutar la rutina de im- 
presión de letras por primera vez. Tarda un 
poco de tiempo en ejecutarse debido a la com- 
probación que hace de los números introduci- 
dos. Para que no tarde tanto, una vez introdu- 
cido el programa y ejecutada esta rutina, si no 
ha dado errores en ninguna línea DATA, se 
pueden suprimir las líneas comprendidas en- 
tre la 6390 y 6470, ambas inclusive y a excep- 
ción de la línea 6460, para ganar velocidad. 
El grupo de línea que aparece a con- 

tinuación son las que se encargan de dibujar 
el mensaje. Dentro de este grupo de líneas 
hay unas cuantas que ya nos suenan por ha- 
berlas utilizado en los demás programas. Por 
ello, sólo explicaremos las diferencias. Las lí- 
neas diferentes son las que se encargan de 
calcular el elemento del vector donde se en- 
cuentra la definición de una letra y su posi- 
ción dentro de dicho elemento, 


Línea 7050. Comenzamos un bucle 
para ir analizando y dibujando letra a letra el 
mensaje almacenado en Af. 


TRUCOS Y RUTINAS BASICAS INN 


Línea 7060. Almacenamos en N el có- 
digo ASCII de la letra a dibujar en la vuelta 
del bucle en la que nos encontramos. 

Línea 7070. Como siempre, restamos 31 
del valor de N. Hacemos esto porque los pri- 
meros 31 caracteres del código ASCII no son 
imprimibles. 

Línea 7080. Calculamos el elemento del 
vector N$() que contiene la definición de di- 
cho carácter. Dividimos el valor de N entre 
cuatro porque en cada elemento del vector 
están definidos cuatro caracteres. 

Línea 7090. Hacemos que P tenga el 
resto existente entre N y el número del ele- 
mento del vector. 

Línea 7100. Almacenamos en P la posi- 
ción dentro del elemento L del vector donde 
se encuentra la definición del carácter a dibu- 
jar. 

Línea 7110. Cuando el carácter a dibu- 
jar es el último de uno de los elementos, el va- 
lor de P es menor que cero. En ese c.«:0 ha- 
cemos que P apunte a la posición donde em- 
pieza la definición del último de los caracte- 


<<< IMPRESION DE CARACTERES GIGANTES >3> 


ALMACENA EL: CARACTER DE LA FORMA DE LA LETRA 
ALMACENA. EL CARACTER DEL FONDO DE LA LETRA 


res que hay en un elemento y le restamos uno 
al número de elementos que contiene la defini- 
ción. 

A partir de este momento el progra- 
ma es igual a lo que hermos visto hasta ahora. 

El siguiente programa que vamos a 
ver nos permitirá imprimir textos de diferen- 
tes formas dependiendo del valor que le de- 
mos a la variable SW. Los valores aceptados 
están comprendidos entre el 1 y el 6 y cada 
uno de ellos nos imprime el mensaje de una 
manera distinta. El significado de cada núme- 
ro es el siguiente: 


1. Impresión normal. 

2. Impresión invertida. 

3. Impresión normal con un carácter 
distinto del cuadradito. 

4. Impresión invertida con un carác- 
ter distinto del cuadradito. 

5. Impresión normal. Se imprime 
cada carácter con el carácter que representa. 

6. Impresión invertida. Se imprime 
cada carácter con el carácter que representa. 


MASIA ISO Olalla lalalala joto lolalolololoooK 


AO AECA EXA CEA AA AA AAA 


FARRO OOOO OOOO OJO OOOO OOOO IO 


6000 REM 
B010 REM * 
6020 REM * 
8030: REM-* 
8040 REM * VARIABLES QUE HAY QUE PASARLE A LA RUTINA 
BOLO LRM ro o at a E E A E 
6060 REM *. 
6070 REM + A$ = MENSAJE A IMPRIMIR 
6080 REM * X= COLUMNA DONDE EMPEZARA EL MESAJE 
6090 REM + Y = FILA DONDE SE COLOCARA EL MESAJE 
3100 REM * SW = INDICADOR DEL TIPO DE IMPRESION 
8110 REM x ” 

/ 8120 REM * VARIABLES USADAS POR LA RUTINA 
SLSDIRE MIES Lao coo ce 1 PUE PAE le 
* 6140 REM x 

md 6150 REM * N = POSICION DE LA DEFINICION DEL CARACTER 
6160. REM-* A. = VARIABLE QUE RECOGE EL DATO DE LA MATRIZ 
6170 REM * 1 = VARIABLE INDICE DEL PRIMER BUCLE 
6180 REM * J = VARIABLE INDICE DEL SEGUNDO BUCLE 
6190 REM + N()= MATRIZ QUE ALMACENA LAS DEFINICIONES 
6200 REM x* Mg = 7 
6210 REM * W$ = 
6220 REM * 
¿(0230 REM * LA RUTINA NO DEVUELVE NINGUN VALOR 
5240 REM * 
8250 REM 
6280 REM 
8274 REM *** LECTURA DE 1,AS DATAS *rr 
8280 REM 
6250 DIM D(96,5) 
£300 FOR I=1'TO-9ñ 
6310 FOR J=1 TO 8 
6320 READ D(1, 3) 
6330 NEXT J 
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6340 


6350 RE 


7000 
7O10 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
72%0 
7290 
7300 
7310 
7320 
7330 
7340 

350 
7360 
$000 
SoLo 
8020 
8030 
8040 
8050 
38060 
8070 
2080 
3090 
8100 
3110 
8120 
8130 
8140 
8150 
8160 
8170 
3180 
8190 
8200 
8210 
8220 
38230 
8240 
8250 
8260 


NEXT 1 


REM 


TORN 


REM *+** RUTINA PRINCIPAL xxx 


REM 


IF SW<2 THEN LET M$=CHR$(219):LET W$=" * 
IF SW=2 THEN LET M$=" 


“¡LET W$=CHER$(219) 


IF SW=3 THEN W$=" ” 
IF SW=4 THEN LET W$=M$:LET M$=" 


FOR I= 


1 TO LEN(AS) 


LET N=ASC(MID$(A3, 1,1)) 
LET N=N-31 


IF SW=5 


THEN LET M$=MIDS(A$,1,1):LET W$=" " 


IF SW=6 THEN LET W3=MIDS(A$,1,1):LET M$=" “ 
FOR J=1 TO 8 


LET A=D(N,J) 
LOCATE Y+J-1,X 
IF A>-=128 THEN LET A=A-128:PRINT M$;:GOTO 7170 a E 


y$ 


- PRINT W$; 


IF A>=64 THEN LET A=A-84:PRINT M$;:GOTO 7190 - 
PRINT W$; 

IF A>=32 THEN LET A=A-32:PRINT M$;:GOTO 7210. 

PRINT W$; 

IF A>=16 THEN LET A=A-16:PRINT M$;:GOTO 7230" 

PRINT Wi; 

IF A>=8 THEN LET A=A-8:PRINT M$;:GOTO 7250 

PRINT Hs; 101600 E Y) 
IF A>=4 THEN LET A=A-4:PRINT M$;:GOTO 7270 EA a E A | 
PRINT Ns; 

IF A>=2 THEN LET A=A-2:PRINT M$;:GOTO 7290 ls dl MN 
PRINT Ws$; Ad 

IF A=1 THEN PRINT M$;:GOTO 7310 IN 77 
PRINT-W$; > E E E 
PRINT 2038 SA DA E GUA 


NEXT J | A A 


LET X=X+8 

1F X>80 THEN LET 
NEXT 1 ls 
RETURN * de: E 


REM 


REM AASOIOOROIOIOOOIOOOIOOIOIOOIOlo lok 


REM * 
REM * 
REM x 


REM Ad ROO 


REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA , 
DATA 
DATA 


h 24, 24,48,0,0,0, 0,0 
DATA . 


X=1:LET Y=Y+8 - A 


LINEAS DE DATA CON LA * 
DEFINICION DE TODOS LOS * 
CARACTERES. * y 


0,0,0,0,0,0,0,0 

24,24,24,24,24,0,24,0 

108,108, 108,0,0,0,0,0 ' 

dr 108,254,124,254,108,108,0 
24,52,88,60,28,124,24,0 

wo, 99,102,12,24,51,09,0 

56,108,56,118, 220, 220,115,0 


12,24, 48, 43, 48,24,12,0 
48,24,12,12,12,245348,0.., 7 | 
0, 102,60,255,60, 102, 0,0 $ 
0,24,24,126,24,24,0,0 A 
0,0,0,0,0,24,24, 43 
0,0,0,126,0,0,0,0 y 
00,000, 24) 24, 0/4 100) 000 103 
6,12, 24, 48,96, 192, 12 E 
124, 198, 206, 214, 230, 
24,56,24,24,24 
' 60,102, 6,60, 98 
80,70,6,28,6,1 


B270 
8280 
8290 
8300 
B310 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8390 
38400 
8410 
8420 
38430 
38440 
8450 
8460 
3470 
8480 
8490 
8500 
8510 
8520 
8530 
8540 
8550 
8560 
8570 
8580 
8590 
8600 
3610 
8620 
8630 
8640 
8650 
8660 
8670 
8680 
8690 
8700 
8710 
8720 
8730 
8740 
8750 
8760 
8770 
8780 
8790 
8800 
8810 
8820 
8830 
8840 
8850 
8860 
8870 
8880 
8890 
8900 
8910 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


24,56,88,152,254,24,80,0 

126, 98,96,60,6,102,80,0 

80, 102,96,124,102,102,60,0 
126,70,6,12,24,24,24,0 
80,102,102,60,102,102,60,0 
80,102,102,62,8,102,60,0 
0,0,24,24,0,24,24,0 
0,0,24,24,0,24,24,48 

12,24, 48,96, 48,24,12,0 
0,0,126,0,0,126,0,0 

96, 48, 24,12,24,48,96,0 
80,102,6,12,24,0,24,0 

124, 198,222,222,222,192,124,0 
24,60, 102,102,126,102,102,0 
252, 102,102, 124,102,102,252,0 
80,102,192,192,192,102,60,0 
248, 108,102, 102,102,108,248,0 
254,98, 104, 120,104,98,254,0 
254,98,104,120,104,96,240,0 
80,102,192,192,206,198,126,0 
102, 102,102,126,102,102,102,0 
126,24,24,24,24,24,126,0 
30,12,12,12,204,204, 120,0 
230,102,108,120,108,102,230,0 
240,96,96,96,98,102,254,0 
198, 238,254,214,214, 198, 198,0 
198, 230,246, 222,208, 198,198,0 
56,108, 198,198,198,108,56,0 
252,102,102,120,96,96,240,0 
56,108,198, 198,218,204, 118,0 
252,102,102,124,108,102,226,0 
60,102,96,60,6,102,60,0 
126,90, 24,24, 24,24,60,0 
102,102,102,102,102,102,60,0 
102, 102,102,102,102,60,24,0 
198,193,198,214,254,238,198,0 
198, 108,56,56,108,198,198,0 
102,102, 102,60,24,24,80,0 
254, 198, 140,24,50,102,254,0 
80, 48,48, 48, 48,48,60,0 
192,96, 48,24,12,6,3,1 
$0,12,12,12,12,12,60,0 
24,60,126,24,24,24,24,0 
0,0,0,0,0,0,0,255 

0, 48, 24,12,0,0,0,0 
0,0,120,12,124,204,118,0 
224,224,124,102,102,102,188,0 
0,0,60,102,96,102,60,0 
28,12,124,204,204,204, 118,0 
0,0,60,102,1286,98,60,0 

28,54, 48, 120, 43, 48, 120,0 
0,0,62,102,102,62,86,124 
224,96,108, 118,102, 102,230,0 
24,0,56,24,24,24,60,0 
2,0,14,6,6,102,102,60 
224,96,102,108,120, 108, 230,0 
56,24,24,24,24,24,60,0 

0,0, 108,254,214,214, 198,0 
0,0,216,102,102,102,102,0 
0,0,60,102,102,102,60,0 
0,0,220,102,102,124, 96,240 
0,0,118,204,204,124,12,30 
0,0,216,108,96,96,240,0 
0,0,60,96,60,6,124,0 

48,48, 124, 48,48,54,28,0 
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J$KRUINNANARE<ZCACANA DO DUO ZZFPCAGATIOBEADOAD>OsYvnmaA sv. 


Bro r5ya»o0gpsocop 


5 


+0 F'pomDOo 


8920 DATA 


0,0,102,102, 102,102, 62,0 :REM u 
8930 DATA 0,0,102,102,102,60,24,0 :REM y 
8940 DATA 0,0,198,214,214,254, 108,0 REM w 
8950 DATA 0,0,198,108,56,108, 198, 0 :REM x 
8960 DATA. 0,0,102,102,102,62,6, 124 : REM y 
8970 DATA 0,0,126,76,24,48,126,0 : REM z 
8980 DATA 14,24,24,112,24,24,14,0 ¿REM £ 
8990 DATA 24,24,24,24,24,24,24,0 REM | 
9000 DATA 112,24,24,14,24,24,112,0 : REM 3 
9010 DATA 118,216,0,0,0,0,0,0 :REM 
9020 DATA 204,51,204,51,204,51,204,51 : REM 
El siguiente programa nos permite qe 
experimentar con este último programa a S 


nuestro gusto. 


100 
110 
120 
130 
140 
150 
180 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
331 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 


IAN EEES 


REM x* 
REM * 


PROGRAMA DEMO PARA EJECUTAR x*x 
LA RUTINA DE LETRAS GRANDES * 


REM SNS OOO do OJO OK 


REM 
CLS 
PRINT 


PRINT, 


GOSUB 
CLS 

INPUT 
INPUT 
INPUT 
PRINT 
PRINT 
PRINT 


PRINT * 
PRINT ' 
PRINT " 
PRINT * 
PRINT * 


PRINT 
PRINT 
INPUT 


IF SW= 


PRINT 
PRINT 


"CARGANDO DATAS. " 
"ESPERE UN MOMENTO. " 
6000 


"MENSAJE 
"COLUMNA 
"FILA 


"oH 
> 
e 


'Ú 
té 


"TIPO DE IMPRESION” 


IMPRESION NORMAL” 

IMPRESION IMVERTIDA” 

NORMAL DE UN CARACTER” 

INVERTTIDA DE UN CARACTER” 

NORMAL CADA LETRA SU CARACTER” 
INVERTIDA CADA LETRA SU CARACTER" 


DIANA 
A IT) 


"TIPO = ";SW 
3 OR SW=4 THEN INPUT "CARACTER= “;M$:LET M$=LEFTSF("*"+M$, 1) 


"PULSA UNA TECLA PARA EMPEZAR" 


LET B$=INKEYS 


IF B$="" THEN GOTO 360 

CLS 

GOSUB 7000 

PRINT 

PRINT “PULSA UNA TECLA PARA” 
PRINT “INTRODUCIR OTRO MENSAJE" 
LET B$=INKEYS 

IF B$="" THEN GOTO 430 

GOTO 190 


Estos dos últimos programas no se COMMODORE: 
van a explicar debido al gran parecido a todo E á ay A Az 
lo que hemos visto en estos dos últimos tomos. — 29% IE SW<2 TON LET M$=CHR$(66):LET WH- 


7040 IF SW=2 THEN LET Mp=" "LET WH=CHRB$(066) 


Las modificaciones al segundo programa para 7140 POKE 214,Y+]-1:POKE 211,X 


ordenadores distintos del IBM son: 


7340 IF X>40 THEN LET X= 1.1 ET Y-Y48 
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TRUCOS Y RUTINAS BASICAS MI 


SPECTRUM: 


7030 IF SW<2 THEN LET M$=CHR$(143):LET W$="" 
7040 IF SW=2 THEN LET M$=" ".LET W$=CHR$(143) 
7080 LET N=CODE(A$D) 

7100 IF SW=5 THEN LET M$=AS$(D):LET W$="" 

7110 IF SW=6 THEN LET W$=A$(D.LET M$="" 

7140 PRINT AT Y+J-1,X; 

7340 IF X>32 THEN LET X=1:LET Y=Y+8 


MSX: 


7140 LOCATE X,Y+]-1 
7340 IF X>40 THEN LET X=1:LET Y=Y+8 


AMSTRAD: 
7140 LOCATE X,Y+J-1 


Si no se utiliza el modo 2 de pantalla 
para ejecutar esta rutina hay que variar las si- 
guientes líneas: 
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7340 IF X>40 THEN X=1:Y=Y+8:REM PANTALLA EN 
MODO 1 

7340 IF X>32 THEN X=1:Y=Y+8:REM PANTALLA EN 
MODO 0 


Las variaciones al tercer programa 
son las siguientes: 


COMMODORE: 


150 PRINT CHR$(147) 
190 PRINT CHR$(147) 
360 GET B$ | 
380 PRINT CHR$(147) 
430 GET B$ 


SPECTRUM: 


331 IF SW=3 OR SW=4 THEN INPUT "CARACTER= 
""MS:LET M$=(""+MS) (1) 


EL TALLER DEL HARDWARE PAS 


Hi Muestreador /sintetizador 
de señales de audiofrecuencia 


IGUIENDO con el diseño de 
sistemas para el análisis y 
síntesis de señales de audio- 
frecuencia mediante orde- 
nador personal, vamos a 
describir un circuito que 
permite el tratamiento digi- 
tal de las señales y su mani- 
pulación por programa. 

Los equipos electrónicos que acompa- 
ñan a la mayoría de los cantantes disponen de 
un instrumento que utiliza el almacenamiento 
de la señal de forma digital. Permite la repro- 
ducción controlada del sonido producido por 
un instrumento real o por la voz, durante un 
período corto de tiempo, variando las carac- 
terísticas de repetición, intensidad sonora, 
modulación y cambio de la frecuencia funda- 
mental, conservando el timbre original. Así 
pueden producirse sonidos muy parecidos al 


de una trompeta desde un teclado y además 
simular la actuación de varios instrumentos si- 
multáneos, accionados por un solo intérprete. 

Todos los efectos mencionados pueden 
ser producidos mediante un equipo que se de- 
nomina muestreador ("sampler en inglés) y 
que tiene por función principal la adquisición 
de una señal mediante muestras digitalizadas 
y almacenadas en una memoria. Estas mues- 
tras pueden convertirse otra vez en su valor 
analógico por el proceso inverso al de la ad- 
quisición, con la frecuencia de salida que con- 
venga. 

Vamos a describir los bloques principa- 
les de un equipo que permita producir los 
efectos indicados y su conexión a un ordena- 
dor personal. El equipo será de aplicación 
real, aunque con las limitaciones propias de 
los componentes utilizados. Lo importante es 
comprender el funcionamiento del sistema y 
disfrutar con la manipulación por programa de 
las señal, produciendo efectos que serían muy 
difíciles de crear incluso con los sintetizado- 
res más costosos. 


Fig. 1. Esquema de bloques del muestreador-sintetizador. 
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El Esquema de bloques 


La señal es amplificada mediante un 
amplificador de entrada, para que presente 
un nivel adecuado al conversor, La señal de 
entrada será generalmente alterna, por lo que 
se la desplaza a un nivel de continua corres- 
pondiente al valor medio de la máxima ampli- 
tud admisible por el conversor. 

La señal amplificada se muestrea y el 
valor de la muestra podría ser mantenido du- 
rante el período de conversión por un circuito 
de muestra y mantenimiento. En la versión 
que se presenta no se ha incluido circuito de 
mantenimiento, por considerarse variaciones 
lentas de la señal de entrada para las aplica- 
ciones reales. 


El conversor, activado por el pulso de 
arranque genera un código digital por el va- 
lor de la muestra. Al finalizar la conversión 
presenta a la salida los ocho bits correspon- 
dientes al nivel de la señal. 

El código se almacena en un registro 
controlado por el pulso de fin de conversión, 
que además indicará al ordenador que hay un 
nuevo dato disponible. 

El ordenador, que estará observando el 
indicador de fin de conversión, almacena en 
la memoria el dato, llevando la cuenta de la 
posición. 

El proceso se repite tantas veces como 
sea necesario para almacenar un número su- 
ficiente de muestras que hagan significativa la 
representación de la señal de entrada. 

Una vez almacenada la señal en la me- 
moria del ordenador, podemos realizar sobre 
los datos que la representan las operaciones 
adecuadas para su interpretación o modifi- 
cación convenientes. En el caso más simple 
podremos sacarla de forma que reproduzca a 
la señal original en la parte siguiente del sis- 
tema. El contenido de la memoria puede sa- 
carse al puerto de salida, que tendrá conecta- 
do un conversor digital analógico. Al cargar 
el registro con los diferentes valores se pro- 
ducirá una señal reproducción de la señal ad- 
quirida, pero que puede generarse a diferen- 
te frecuencia de la que se empleó para adqui- 
rirla. 


El conversor digital/analógico presen- 
tará un nivel de continua correspondiente al 
valor almacenado y por tanto con un despla- 
zamiento en continua. Mediante un filtro pasa- 
banda, eliminaremos la componente continua 
y las componentes de alta frecuencia que 
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como consecuencia del muestreo discreto se 
presentarán a la salida. 

El circuito mezclador de salida permite 
sumar la señal original y la procesada a tra- 
vés del ordenador, asignando a cada una de 
las señales el coeficiente deseado mediante 
potenciómetros. Con esto podremos añadir el 
efecto de ecos o de resonancias, mediante 
programas adecuados. 


2 Amplificador de entrada 


+12 -12 


Fijador de nivel 


Fig. 2. Amplificador de entrada. 


Se emplea un amplificador operacional 
típico, como los que hemos empleado en otros 
muchos circuitos anteriores. La ganancia se 
determina mediante las resistencias Rl1 y R2, 
por lo que esta segunda se compondrá de una 
parte fija y otra variable, para poder ajustar a 
los diferentes micrófonos. 

El nivel de continua a la entrada se ajus- 
ta mediante el potenciómetro Pl para que a la 
salida, en reposo, haya un nivel de 2,5 voltios. 

El condensador colocado en paralelo 
con la resistencia de realimentación sirve para 
limitar el ancho de banda de la señal de en- 
trada. Podríamos incluso utilizar una etapa de 
filtro paso-bajo, para reducir los efectos de 
alias y que ya se han descrito en tomos ante- 
riores. Como en este caso pretendemos pro- 
ducir efectos sonoros, no nos preocuparemos 
por ello, pero es conveniente recordarlo pues 
el efecto no es despreciable. Por otra parte, 
como el contenido en las frecuencias superio- 
res es siempre bajo, los alias que aparecen son 
de baja amplitud, si es que no son eliminadas 
las componentes superiores, mediante el filtro. 


Fig. 3. Conversor analógico/digital. 


Se utiliza uno más rápido que los em- 
pleados en tomos anteriores, con objeto de 
que se pueda cubrir un amplio ancho de ban- 
da de señales. El ZN427 puede trabajar con re- 
loj de hasta 600 KHz. En nuestro ejemplo, para 
cubrir las frecuencias de audio, trabajaremos 
a 150 KHz. El período de muestreo será de 
unos 53 microsegundos. La frecuencia de 
muestreo la mantendremos en pricipio fija, ju- 
gando con la frecuencia de salida, mediante 
programa. Podemos añadir una circuitería de 
control de conversión que permita el control 
totalmente por programa. 


El circuito tiene su propia señal de re- 
ferencia, que se utiliza realizando un puente 
entre la entradas 7 y 8. Conviene que la refe- 
rencia sea lo más estable e independiente del 
ruido externo, por lo que se conecta un con- 
densador de filtro para reducirlo en lo posi- 
ble. El método que se utiliza es de aproxima- 
ciones sucesivas. 


El reloj de referencia se genera me- 
diante un LM555, que ya hemos utilizado en 
otros circuitos. Se puede ajustar la frecuencia 
mediante una de las resistencias que definen 
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de 


SELINA 
FAL NOAA A 


: 
O Fin conversión 


O Conversión en curso 


el período de oscilación, de acuerdo con la 
fórmula: 


F=145/(Cx(Rl1+2xR2) 


La conversión funciona de manera con- 
tinua, activándose la señal de comienzo con la 
salida de un FF montado con puertas NAND 
cruzadas. El FF se desactiva con el pulso de fi- 
nal de conversión EOC. Esta señal está tam- 
bién disponible para la interfaz. 

Se podría hacer la conversión controla- 
da por programa haciendo que la entrada 
START estuviera conectada a una salida de 
decodificador de dirección. Simplemente con 
direccionar se comenzaría la conversión. 


E Registro de entrada al ordenador 


Es un circuito similar a los puertos des- 
critos en la tarjeta de ampliación de puerto, 
pero en este caso es un puerto de entrada con 
registro activado por el circuito exterior y leí- 
do por el ordenador cuando recibe la indica- 
ción de que está lleno. Se realiza con un regis- 
tro de tipo 7415374, con activación de la car- 
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Del CA/D 20 


Pig. 4. Registro de entrada. 


ga con el pulso de fin de conversión (EOC), 
pues requiere un pulso positivo. La lectura del 
registro se hace desde la CPU mediante una 
sentencia de lectura de puerto, decodificado 
como SELR1, por ejemplo. La decodificación 
actúa sobre la entrada de OE, que activa el cir- 
cuito de tres estados de la salida. 


3 Registro de salida 


Del bus de D6 O 


datos AL CD/A 


Fig. 5. Registro de salida. 


Es exactamente un puerto de salida 
como los descritos en la tarjeta de ampliación 
de puertos. Se carga por programa, al gene- 
rar su dirección el decodificador de direccio- 
nes de salida, SELW1, por ejemplo. La salida 
del registro está siempre activada, pues el 
control de OE se ha conectado a masa. 

Se utiliza un registro de tipo 7415374. 


2 Conversor digital /analógico 


Se utiliza un circuito como los emplea- 
dos en la tarjeta de interfaces analógicas. El 


Del registro 
de salida 


Fig. 6. Conversor digital/analógico. 


circuito integrado más apropiado es el 
ADCO801, pero existen muchos otros de simi- 
lares características. Realiza la conversión di- 
gital/analógica en modo corriente, por lo que 
es necesario añadir a la salida un amplifica- 
dor que convierta la corriente en tensión y 
además determine la ganancia. Se ajusta la ga- 
nancia mediante la resistencia de 5K del bu- 
cle de realimentación. Es importante el ajuste 
del offset en este circuito para que no se sa- 
ture en ninguno de los dos extremos. 


E Filtro de salida 


InF 


O 
Al mezclador 


Fig. 7. Filtro de salida. 


Se filtra la señal mediante un filtro de 
paso bajo, además de eliminar la componente 
de continua introducida por el desplazamien- 
to necesario del conversor A/D, con un con- 
densador en serie con la entrada. El filtro em- 
plea un circuito integrado LM741, como en el 
resto de los amplificadores. 
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El Mezclador 


Entrada 1 

Original 
Salida 

Entrada 2 al amplificador 
de potencia 


Procesada 


Fig. 8. Mezclador. 


Simplemente permite sumar las señales 
original y procesada, mediante potencióme- 
tros para producir el efecto conveniente. 

La salida se llevará a un amplificador 
de potencia para actuar sobre un altavoz o a 
un conector para conexión de auriculares. 


Ml Alimentaciones 


Todos los circuitos digitales mostrados 
se alimentan con 5 voltios. Los circuitos analó- 


gicos, como son amplificadores operacionales 


y conversores A/D y D/A se alimentan con 
tensiones de 12 voltios, positiva y negativa. 
Hay además necesidad de alimentación de -5 
voltios para el C D/A, que por su bajo consu- 
mo puede generarse con diodo Zener a partir 
de la tensión de -12 voltios. 

Como en todo circuito que amplifica se- 
ñales analógicas de bajo nivel es conveniente 
disponer de pistas de alimentación y masa se- 
paradas para las alimentaciónes de los circui- 
tos digitales y desacoplar cada circuito con 
condensadores de 100 nF. 


Programas de control 


Para hacer funcionar el equipo así mon- 
tado es necesario que el ordenador realice las 
funciones de adquisición, proceso y salida de 
las señales en la secuencia conveniente para 
cada caso. Vamos a ver los casos más simples 
y que convenientemente combinados conver. 
tirán a nuestro equipo en un muestreador-sin- 
tetizador programable. Los programas han de 
realizarse en lenguaje de máquina o en un len: 
guaje compilable, pues si no es así, la frecuen. 


cia de toma de muestras resultará muy baja 
para las señales acústicas. Los ejemplos que 
se mencionan será necesrio compilarlos para 
que resulten prácticos. 


Mi Muestreo y salida retardada 


El primer caso simple consiste en mues- 
trear la señal y sacarla con un tiempo de re- 
traso con relación a la señal de entrada. La ad- 
quisición de datos se activa por el programa 
y según el retardo deseado, se almacenan las 
muestras durante un período y se presentan a 
la salida sin modificación. Es decir, la muestra 
de entrada se almacena en la posición X y se 
presenta a la salida la muestra existente en la 
posición X-R, siendo R el número de muestras 
de retardo. Expresado en tiempo el retardo 
será R/N, siedo N el número de muestras por 
segundo que se estén tomando, El almacena- 
miento ha de ser, por supuesto, de tipo circu- 
lar, con un tamaño mínimo correspondiente a 
R. Se realiza el acceso de forma circular me- 
diante el cálculo del resto módulo del número 
de elementos de la tabla, 


10 REM A ' 
20 REM PRODRANA 
30 el 


40 REM UY 
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"NUMERO MAXIMO DE REPETICIONES";MAXIMO 
"PULSE ENTER CUANDO ESTE PREPARADO": X$ 


1020 
Lic 
1140 
1100 
1130 
1200 
1210 
120 
1230 
1240 


IMPUT 
UNPLUT 
PRINT 
PRONT *GAPTANDO: SEMALES" 
FOR J=4 10 MAXIMO 
VOR l=1 710 320 

AE LINECPSTAT) — 

14 0=(5 AND 1) THEN 1160 

EL I)= INP LEDATOS) 

DUT PDATOS, B£(I+R) MOD 320) 


1250 MEXIT 1 

1260 MExtr od 

12/0 HKEFUION 

1970 REÍ XX xx PRESENTAR RESULTADO Xx k % xk 
Z000 CELS 

¿010 PRINI "LISTADO DE LA SEÑAL CAPTADA" 

2020 PRINT 


2030 
2040 
¿0560 
2060 
3000 
3010 
3300 


FOR I=1 TO 320 
FRINMT " "¡HEXS$(B(1));5 
MEXF L 
RETURN 
REM TERMINA 
QUT PSTAT.O 
RETURN 


Muestreo y salida modulada 


Es un caso parecido al anterior, pero en 
el que la señal se multiplica por un coeficien- 
te variable con el tiempo, con lo que presen- 
tará una variación como la de trémolo. Varian- 
do la frecuencia y la amplitud de la modula- 
ción podremos generar diferentes efectos. 

Sobre el ejemplo presentado se modifi- 
cará la salida de la señal muestreada multipli- 
cándola por un factor dependiente de la posi- 
ción a leer. Si además se modifica la frecuen- 
cia de modulación, se incluirá en el bucle de 
lectura de la señal. 


Hl Generación de señales arbitrarias 


- . Mediante la asignación de niveles arbi- 
trarios para cada nivel de entrada pueden ge- 
nerarse señales que, siendo arbitrarias pare- 
cen tener una sistematicidad. 

Para producirlas se sustituirá el valor 
captado por otro almacenado en una tabla. Es 
decir, el valor a sacar no es el que se almace- 
nó en el vector de señales sino el que se en- 
cuentre almacenado en la tabla, en la posición 
correspondiente al valor de entrada. La tabla 
se generará de acuerdo con la ley que se de- 
sea ensayar, evitando el realizar cálculos du- 
rante el proceso de búsqueda en la tabla, pues 
resultaría lento. Sobre el ejemplo anterior será 
necesario añadir la generación o lectura de la 
tabla de conversión y en la sentencia OUT al 
puerto de salida, sustituir la referencia al vec- 
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tor de señales por la del acceso indexado a la 
tabla. 


E Muestreo y generación de armónicos 


La señal se muestreará como en los ca- 
sos anteriores pero por un tiempo determina- 
do. Una vez lleno el espacio reservado y que 
corresponderá a un tiempo adecuado al efec- 
to a producir se detendrá la adquisición de 
muestras. El ordenador quedará en disposi- 
ción de pulsar las teclas, generándose una se- 
ñal igual a la muestreada pero con una fre- 
cuencia de salida dependiente de cada tecla, 
por lo que se producirán diferentes tonos con 
el mismo timbre. En el equipo que hemos di- 
señado solamente podrán producirse sonidos 
monofónicos pues sólo disponemos de un cir- 
cuito de entrada y otro de salida. Los equipos 
profesionales suelen disponer de más de uno 
para poder producir señales polifónicas, pero 
como se comprenderá a un coste mucho más 
elevado. 

Para realizarlo prácticamente, sobre el 
programa ejemplo mostrado se realizará una 
vez la toma de muestra, sincronizándola con la 
entrada, es decir, eliminando las muestras ini- 
ciales que sean inferiores a un determinado 
nivel. Después se generará una reproducción 
de la señal completa, cada vez que se pulse 
una tecla, variando el tiempo entre la salida 
de dos muestras, Es necesario calibrar en 
cada caso, pues al ser muy dependientes del 
reloj de cada máquina, no se puede predecir 
la frecuencia que puede resultar, 


ll Conclusión 


Se ha presentado un circuito de adqui- 
sición y generación de señales analógicas 
que, controlado por nuestro ordenador perso- 
nal, permite la creación de efectos sonoros in- 
teresantes. El mismo circuito permite el alma- 
cenamiento de la información relacionada con 
las señales de forma digital y mediante pro- 
grama pueden realizarse operaciones de fil- 
trado y reconstrucción de la señal de entrada. 
En el próximo tomo veremos cómo procesar 
las muestras con otro punto de vista: conocer 
su contenido frecuencial. 
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MATEMATICAS 


: Resolución de un sistema de tres dl bl cl 
ecuaciones por el método de Cramer ES 
E lal bl cl 

STE método de resolución ad b2 c2 

de ecuaciones se basa en el a3 b3 c3 

cálculo de determinantes. al di cl 

Lo proponemos para resol- a2 d2 02 

ver un sistema de tres ecua- a3 d3 (3 
ciones con tres incógnitas, A PaTTEEN 

pero puede generalizarse a 2 b2 c2 

n. Para ello debe utilizarse a 93 E 

el programa de resolución de determinantes a E 

que vimos en otro fascículo. al bl dl 
Partimos del siguiente sistema de ecua- az b2 d2 
ciones: a3 b3 d3 
Z = o o 

alx+bly+clz=dl al bl cl 

a2 x + b2 y + 02 z = d2 ag b2 c2 

a3 x +13 y + C3 z = d3 as b3 c3 

Es en definitiva lo que se ha aplicado 
La solución de este sistema será: para la realización del programa. 


10 CLS 

DO PRINT OOOOIOIOOOIOIOIOIOOOO OIGO IESO lO OIOIOIOIOR" 
30 PRINT "*xx RESOLUCION DE SISTEMAS DE 3 ECUACIONES XxX" 
30 PRINT "Xx FOR El METODO DE CRAMER xx" 
SO PRINT MdaddRlSIPPlPl lll lll lll lo lOjolOIOlBIOJPIOJ”" 
50 PRINT:PRINT :¿PRINT 

70 DIM CO(3.3):DIM T(3) 

BO REM RROOIOOIOIOROOIOIOOOIGIGIGIORSIOIOIGIOIÓJÓON 

90 REM XxX INTRODUCCION DE DATOS x*x 

100 REM RAOOOOOIOIOOIOOIOIOIOIOROOIOIOIOIOOOK k 

110 FOR I=1 TO 3 

120 PRINT "INTRODUCE LOS COEFICIENTES DE LA ECUACION ":1 
130 FOR J=1 TO 3 

140 INPUT CO(1.J) 

150 NEXT y] 

160 INPUT "TERMINO INDEPENDIENTE=":2 1 (1) 

170 NEXT 1 

180 REM RGOOOIOIOIOIOIOIOOOPRSIOPIOPIRIOO Ola IOOJOK 

190 REM *Xk PRESENTACION EN PANTALLA XA 

BO. REM OOOO OOOO: 

210 CLS 

220 FRINT "RESOLUCION DEL SISTEMA DE Z ECUACIONES: " 
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230 FOR 1=1 TO 3 


290 PRINT CO(1,1)1"X+*"98CD(1.2)3"Y+":00(1.3):3"Z="3 F,01) 


250 NEXT 1 

260 PRINT:PRINT 

270 REM RGIOIOIOIOOIOIOIONRIONK 

280 REM XxX RESOLUCION *xx 

290 REM ORIOOIOOIBIOIOIDIOIDIBIOOR 

300 DIM DET(3,.3) 

310 FOR I=1 TO 3 

320 FOR J=1 TO 3 

330 LET DET(1.J)=C0(1.J) 

340 NEXT J 

3530 NEXT 1 

360 GOSUB 560 

370 LET DN=D 

380 PRINT :PRINT :FPRINT *FRINT 
390 REM RRBOOOIBIBRBIOBIO Odo 

400 REM Xxx INCOGNITAS XX 

LO REM GOIOIOIOIOIOGIODIOIOOONE 

420 FOR A=1 TO 
430 FOR I=1 TO 
440 FOR J=1 TO 
450 LET DET(1.J)=C0(1.,J) 

260 1F A=J THEN LET DET(1,.J)=T(1) 
470 NEXT J 

480 NEXT 1 

490 GOSUB 560 

500 LET NU=D 

s10 1F A=1 THEN PRINT "X=":NMU/DN 

520 IF A=2 THEN PRINT "Y=";NU/DN 

530 IF A=3 THEN FRINT "Z=":<NU/DN 

540 NEXT A 

5350 END 

300 REM OGIGOOOIOOOIOOIOIOOIBIOIOIOOIDIOIOORK 
570 REM XX SUBRUTINA DETERMINANTE Xk 
BO REM MGIOIOOIOIOOIOOIOIOOIOIOGIOIOGIOOIOORO kx 


4 dd dl 


5390 D=DET (1.1)X (DET (2.2) XDET (3,3)-DET(2.3)XDET(3,2))-DET(1,2)X (DET (2. 1)XDET (3.3) 
DET (2,3) XDET (3,1))+DET(1,3)Xx (DET (2,1) XDET (3,2) DET (2,2) *XDET(3.1)) 


600 RETURN 


Modificaciones para otros 
ordenadores 


COMMODORE: 


10 PRINT CHR$(147) 


SPECTRUM: 
550 GOTO 9999 


. 


' Comprobando el funcionamiento 


Vamos a intentar resolver la siguiente 
ecuación: 
3x+2y- z=-l 
2xX-3y+2z= 3 
X+ y+ z= 4 


Aplicamos el método de Cramer, el 
mismo que utiliza el programa en el ordena- 
dor: 


Aa] 
3-3 2 
A 

EA E 
2-3 2 
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ESTE 
ES US 
2.3 2 
ARA 
EIA 
2 a 
La 
3 2-1 
2 -3 | 
PL 
A E 
2-3 2 
A 


Comprueba con tu ordenador que los 
resultados son correctos. 


NATURALEZA Y TECNOLOGIA 


- Botánica. Las hojas 


Este es el segundo programa de botá- 
nica que presentamos; en esta ocasión el tema 
de estudio es la hoja. 


Las hojas son expansiones laminares de 
los tallos, que, cargadas de clorofila, se cons- 
tituyen en los más importantes órganos foto- 
sintéticos. Generalmente son planas y presen- 
tan simetría bilateral. 

Las partes de la hoja son tres: 


1. Vaina. Es la zona de la base de la 
hoja de forma tubular. Abraza al tallo de for- 
ma más o menos total. 

2. Peciolo. Es el rabillo que une la hoja 
al tallo. Las hojas que carecen de peciolo se 
denominan sentadas. 

3. Limbo. Es la porción plana ensan- 
chada. La parte superior se llama haz y la in- 
ferior envés. En esta parte sobresalen los ner- 
vios que son haces de vasos liberoleñosos por 
cuyo interior circula la savia. 


NERUTO PRINCIPAI 
NERVIO SECUNDARIO 
LIMBO 


VAINA 


Hemos creado un programa que parte 
de un menú en el que se puede elegir la op- 
ción deseada pulsando el número que la iden- 
tifica. 


DO REA RGROROOIOIOOOIOOIOOIOIOIO OOOO OOO oK 

20 REM ** BOTANICA: LAS HOJAS *k 

SO REM OGOOIOOIOOIOIOIOOIOIOIOOIBIOOIOIOONK 

40 CLS 

50 SCREEN 2 

O REM ROOIOIOIO IO ROOIOIOIOIOOIORIOIOIOIONON Xx 
70 REM xk LECTURA DE DATAS EN M xk 
BO REM GOO OOOOOOOIOIOOOIOIOOIOIOIOOIRBPORORK 
90 LET N=488 

100 DIM MN 

110 FOR I=1 TO N 

120 READ m(1) 

130 NEXT 1 

19.0 REMO KK 

150 REM *k MENU DE OPCIONES *kx% 

160 REI OOOO A AAA KA A 


Como puede observarse, ese menú 
puede llevarnos a otro posterior, de tal forma 
que obtenemos una lista de la clasificación de- 
seada y, por último, podemos ver la opción 
elegida. 


Pasamos ya a ver el programa: 


170 PRINT "PULSA EL NUMERO DE LA OPCION QUE DESEES: " 


180 PRINT :PRINT :PRINT 


190 PRINT " 1-PARTES DE LA HOJA" 
200 PRINT " 2-TIPOS DE HOJAS FOR SU FORMA” 
210 PRINT " 3-TIPOS DE HOJAS POR SUS NERVIOS" 


220 INPUT R 
230 IF R=1 THEN GOSUB 5660 


4] 


APRENDER CON El. ORDENADOR AAA 


Jr ies N GOSUE 280 

na GOSUE- 490 

CL 0 1170 

END 

PA ODIO OOOO DIODOS 


REM OAK MINO DE TIPOS DE HOJAS POR SU FORMA Ax 
RAI OOOO IO. ORI SRP RROK 
CL. 

PRINT "PULSA EL NUMERO DE LA OPCION DUE DESEES: ” 
PRINT 1PRINT :PRINT 


PRINT O" i—OVALADA" 

PRINT 2-DENTADA" 

PRINT " 3-ASERRADOA" 

PRINT " 4-FESTONEADA" 

PRINT " S5-HENDIDA" 

PRINT " 6-VOLVER AL MENU PRINCIPAL” 

INPUT 1 

CL5 

IF T=1 THEN LET A=5S5S: GOSUB 870: PRINT "OVALADA": INPUT O 


IF 1=2 THEN LET A=78: GOSUB 870: PRINT "DENTADA": INPUT O 

IF 1=3 THEN LET A=199: GOSUB 870: PRINT “ASERRADA": InFuUT O 
1F 1=4 THEN LET A=272: GOSUB 870: PRINT "FESTONEADA”: INPUT O 
1F£ 1=5 THEN LET A=309: GOSUB 870: PRINT "HENDIDA": INPUT DO 

1F I=6 THEN RETURN 

GOTO 310 

REM RICOS OOOOIOIOOOIOIOIONOIOOIOIOIOIOIOIOIOIO A KK 

REM %*% MENU DE TIPOS DE HOJAS POR SUS NERVIOS *xx 

REM OIOIOIOIOOIOIOOIOIOOOIOOIOIOIOIORAOROIOROIOIOOIOOOIOIOIOIGIOPOIORIOOOR 

ELS 


530 PRINT “PULSA EL NUMERO DE LA OPCION QUE DESEES: " 

540 PRINT ¿PRINT :PRINT 

3590 PRINT " 1-PARALELINERVIA" 

560 PRINT " 2-PALMINERVIA" 

570 PRINT * 3-PENNIMERVIA" 

580 PRINT * 4-VOLVER AL MENU PRINCIPAL" 

3590 INPUT 1 

$600 CELS 

610 1F I=1 THEN LET A=55 : GOSUB 870: LET A=354: GOSUE 870:PRINT "PARALELINERVIA 
"Ss INPUT O 

620 1F 1=2 THEN LET A=377: BOSUB 870: LET A=418: GOSUB 870:PRINT "PALMINERVIA":1 
NPUT O 

630 IF l=3 THEN LET A=439: GOSUB 870: LET A=459: GOSUB 870:PRINT "PENNINERVIA": 1 
NPUT O 


980 


1F 1=4 THEN RETURN 

GOTO S20 

REM OOIOOIOIOOOIOIOIOOIOIOOIOIOIOIOIOIOOIOIOIOIOOON 
REM xx RUTINA PARTES DE LA HOJA xx 


REM GIOOIOGIOIORIOOIOGIOOIOROIOIORIOGIORIOIOÓOE 
CLS 

LET A=1 : GOSUB 870 

LET A=24 : GOSUB 870 

FOR I=1 TO 8 

READ A,B 

PSET (Ax7.300-BXx7) 


DRAW "M+40.+0" 

NEXT 1 

LOCATE 6,14:PRINT “APICE" 

LOCATE 7,15: PRINT BORDE" 

LOCATE 10,14:PRINT "NERVIO PRINCIPAL” 


" LOCATE 11,15:PRINT "NERVIO SECUNDARIO” 


LOCATE 12.15:PRINT "LIMBO" 
LOCATE 15,15:PRINT "BASE" 


LOCATE 18,14: PRINT “PECIOLO" 


LOCATE 21.14:PRINT "VAINA" 

INPUT 1 

RETURN 

REM OOIOOIOIOOIOOIOIORIOIOIDORIORNOK 

REM Xx RUTINA DE DIBUJO Ax 

REM OOOOIOIOOIOOIOOIOOOIOONO* 

PSET(M(A+1)A7 ,300-M(A+2)7) 

FOR 1I=4+3 TD Ar3ami(áAr STEP 2 

LET X$=STRS(M(1)k7): LET Y=(-7)AM(I+1):2 LET YS=STR$ (Y) 

LET DIBS= "Me +xXS+" ++ YG 

DRAW DIES 

NEXT 1 

RETURN 

DATA 18,+6,+3,+1.+D,-9,+6,+0,+5,+1,+5,+4,+7 +5, -10, +1 6,57 +010-3 +2 
DATA 26.+8.+10,+0,+4.+4,+4,-4,-4,+0.+2,-3,+4,.+3,-9.+0,+1,+1.+3,+3,+2,=3,72,+ 


A iS 
990 DATA 19. .+10,+10,+1,+4,-3,42,22,+9,+0,+5,+4.+6,.+9,-8,+0,=6.-2 43 +03 2,1 
1000 DATA 117,+10,+10.+1,+3,-1,+0.+0,+1.-1,+0,+0,+1.-1,+0,+1.+1,-1,+0,+0,+1,1,+ 
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0,+1,+1,21,+1,+1.+1,-1,+41,+1,+41,-1,+71,+1,+0,+0,+1,+1,+0,+0,+1,+1,+0,+0,+1,+1,+0, 

OS Ely ti 40.40, Ll) +1) 50.40, +41, PL. 1 , 

1010 DATA, +0. =1 +1, +00>=t.=190 tard +0. =L. EL. +09 3d 05 Lo F0 +0 de ts tool. liar 

MAI e ls a dl a o si a O o E 

AFORO AAA POLO 3.25 1 

1020 DATA 69,+10,+10,+1,+4.-2,+1 +1, +04-2 +2 +14 40.71 +42, 41.0, 1,42, +1. 40.1. +2 
¡+1,+0,+0,+2,+1,+0,+0,+2,+1,+0,41,+2,+1,+0,+0.+2,+2.-4,+1,+0,+0,-2,+1,+0,-1.-2,+ 
tOdO drid 0 2 28 5d SO 0 45 y 2d 

1030 "DATA 33%, +10, +10, 41.44, =5 43.42, 42,2 +2 2 2d ea tos rd el 2 2 42. 1 
A O a a A NEO o eN, 

1040 DATA 41,+10,+10,+1,+4.-5,+3,+4.-1,-5,+4,+5,-1,-5,+4,+5.-1.-3,+5.+3.-1,-1,+3 
AALE EZ Al A O O a ds E ad TAO 

L05S0 "DATA! TLIFLO A VO FZ A SRA FO LAA RR FO FA ELENA ES 
-3 

1060 DATA 
¿+2 +0.+3 
1070 DATA 


37410. +10, +1,4+5.6.-2 2 +43 +1 42 49, +05 +45 +43 +2 +34. +5. +5, +27 

ee arts tddi pla 2: Pr ia 5) 

ES A A NS A E E 

1080 DATA 17,+10,+10,+0,+2,-7,+4,+1,+6,+6,+10,+8,-10,+1.-7,-7,-3,+0,-3,-2,+1 

1090 DATA 25,+11,+13,+0,+2,-5,+3,.+5,-3,+0,+3,+9,+2,-9, 2 +0, +2. +3 AS 3.440,42 

A+ 3 34 1,+7 34 
1100 DATA 8,2.8.79,10,.14.10,19.10,21.9,23,10.30,8.32 « 


920 no se pone 
930 no se pone 


Modificaciones para otros 
ordenadores 


SPECTRUM: 


50 no se pone 

210 GOTO 9999 

740 PLOT A,B 

750 DRAW 20,0 

770 PRINT AT 6,14;"APICE* 

780 PRINT AT 7,15;'BORDE* 

790 PRINT AT 10,14; “NERVIO PRINCI- 
PAL" 

800 PRINT AT 11,15;'"NERVIO SECUN- 
DARIO" 

810 PRINT AT 12,15;¡“LIMBO* 

820 PRINT AT 15,15;"BASE* 

830 PRINT AT 18,14;“PECIOLO* 

840 PRINT AT 21,14;"VAINA" 

900 PLOT M(A+1),M(A4+2) 

920 no se pone 

930 no se pone 

940 DRAW M(D,M(+1) 


AMSTRAD: 


50 MODE 2 

740 PLOT A,B 

750 DRAWR 20,0 

770 LOCATE 14,6: PRINT "APICE* 
780 LOCATE 15,7: PRINT "BORDE" 
790 LOCATE 14,10: PRINT “NERVIO 
PRINCIPAL" 

800 LOCATE 15,11: PRINT "NERVIO 
SECUNDARIO" 

810 LOCATE 15,12: PRINT “LIMBO* 
830 LOCATE 14,18: PRINT “PECIOLO* 
840 LOCATE 14,21:"VAINA" 

900 PLOT M(A+1)'5,M(A+2)'5 
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940 DRAWR M(D)'5,M(+1)'5 


SOCIEDAD 


E La Comunidad Económica Europea 


La Europa occidental que comenzó a re- 
hacerse con la ayuda de los Estados Unidos 
(Plan Marshall, 1947) vio nacer, para coordinar 
esos fondos, una primera organización (la 
O.E.C.E.: Organización Europea de Coopera- 
ción Económica, 1948) que sería el germen de 
los futuros propósitos integradores. A él debe- 
mos agregar un primer intento de carácter 
mucho más localizado como es el del Benelux 
(1944). 

El éxito de la posterior Comunidad del 
Carbón y del Acero (la C.E.C.A.) movió a una 
ampliación de los objetivos. Así se llegó por el 
Tratado de Roma (1957) a la formación de la 
Comunidad Económica Europea (la C.E.E.), 
que tiene como miembros fundadores a yola 
países: Francia, Alemania Federal, Italia, Ból- 
gica, Países Bajos y Luxemburgo. 

Recientemente España ha pasado a por 
miembro de la C.E.E., es algo que nosotros no 
debemos olvidar por las grandes cosas que 
ello conlleva para el país, por eso hemos pon: 
sado que debe ser uno de los temas más m- 
portantes entre nuestros programas y hemos 
querido que se tratara de un programa bas 
tante completo. 


APRENDER CON EL ORDENADOR 


10 CLS 

BO PRINT UOIOROOOIOOIOROIOIOIOIOIOOOIOIOIOROOIGIOIOIOIOIOIIOIGIOIOROO”” 
30 PRINT "xx LA COMUNIDAD ECONOMICA EUROPEA x4" 
20 PRINT "xXx . C.E.E. xx" 
S0 PRINTS SlSIodldlolo lol ldldjollollPlolojpIOIEIojOjÓ” 
60 PRINT :PRINT :PRINT 


70 PRINT * MENU DE OPCIONES: " 

80 PRINT :¿FRINT 

90  PRINT *" 1-ORGANIGRAMA DE LA C.E.E." 
100 PRINT " 2-HISTORIA CRONOLOGICA." 
110 PRINT * 3-TEST DE CONOCIMIENTOS." 
120 PRINT ” 4-SALIR DEL PROGRAMA. e 
130 INPUT O 


140 IF O=1 THEN GOSUB 1000 

150 IF O=2 THEN GOSUB 2000 

160 IF 0O=3 THEN GOSUB 3000 

170 IF 0=4 THEN END 

180 GOTO 10 

1000 REM IOOIOIOIOOOIOOIOIOIOIOIOIOIOIOIOIOIOIOIO OK 
1010 REM XX RUTINA ORGANIGRAMA XA 
DOBZO REM RROOROROIOOOROIOOIOOIOIOIOIOOIOIOIOOK 


1030 CLS 

1040 PRINT * ORGANIGRAMA DE LA C.E.E." 
1050 PRINT 

:1060 PRINT ” ele ES a A aa 

1070 PRINT " E COMITE sy 

1080 PRINT " +. ECONÓMICO Y SOCIAL:.."”" 

1090 PRINT " 2/2 Oroano comsultivo: :” 

1100 FRINT " AS a EA e > es DO 

1110 PRINT ” E .” 
AARAOSAPRAITI AN A a a 
1130 PRINT ": COMISION CONSEJO DE: " 


¿ MINISTROS : 
¿O.ejecutivo: 


1150 FRINT ":D.aestor v 


1040 1PRINT M3 EDROPEA” 34 de 20) 
1160 FRINT ":ejecutivo Z.... 


principal 


AAA PRI TA e e E : NAS 

1180 PRINT " E e 

1190 PRINT * - amalsjeja o a 

APURE rl a A MR ON A 

1210 PRINT ": FARLAMENTO —: ¿ TRIBUNAL :" 

1220 PRINT ": EUROPEO 5 z DE HL 

1230 PRINT ":0.para control: UUSTICIAO 

1240 FRINT “sde la comision: ¿O.judicial:" . 
SAS A] SA A 


1260 INPUT 0: RETURN 
2000 REM OO OORRIOIOIGoldjoldjojojojoL 

2010 REM Xxx RUTINA HISTORIA XxX 
2020 REM aa SOl lolo lOolOIOIOO OK: 
2030 CELS 

2040 PRINT " HISTORIA CRONOLDGICA " 
2050 PRINT 

2060 PRINT " FECHA 
LZOFO PRENTO Bacalao ln 
2080 PRINT " 25/3/57 


ACONTECIMIENTO" 


TRATADOS DE ROMA surgen la E.E£.E. y el EURATOM” 


: 2090 PRINT " 1/7/68 Supresión de barreras arancelarias entre los 
Daises fundadores k 
2100 PRINT "1/7/71 Establecen preferencias arancelarias genera- 
z lizades entre C.E.E. v el Tercer Mundo." 
7 2110 PRINT " 1/1/73 Imoresan REINO UNIDO. IRLANDA y DINAMARCA. " 
2120 PRINT " 5/6/74 Referendum en Reino Unido sobre la permanencia 


en la C.E.E. con resultado afirmativo." 


2130 PRINT " 12/6/75 Grecia solicita su imoreso en la C.E.E.”* 


2140 PRINT " 1/4/76 Entra en vioor el convenio de Lomé. " 
2150 PRINT " 28/3/77 Portugal solicita su inoreso en la C.E.E.” 
2160 PRINT " 1/7/77 Entra en vioor la unión aduanera. 


Abolición de aranceles industriales entre la C.E.E. 
VIIa ESFOTIIAs Y 

España solicita su inoreso en la C.E.E." 

España inoresa en la C.E.E." 


2170 PRINT * 28/7/77 
2180 PRINT " 1/1/86 
2190 INPUT O: RETURN 
3000 REM RIOR SIOOIBIOSIOIPOIDIOJOR: 

3010 REM Xx RUTINA TEST xx 

3020 REM ESOO 

3030 CLS:LET C=0 

3040 PRINT " TEST DE CONOCIMIENTOS * 
3050 FOR I=1 TO 10 

3060 READ FS,R1S,R2S,R35$ 

3070 PRINT P$:PRINT 

3080 PRINT "1-":R1$:PRINT 

3090 PRINT "2-"3R2%$:PRINT 

3100 PRINT "3-":R3$:PRINT 

3110 PRINT 
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3120 INPUT R 

3130 READ Y 

3140 1F R=W THEN C=C+1:PRINT “11 ¡GORRECTO' ''":GOTO 3170 

3150 PRINT "NO ES CORRECTO" 

3160 PRINT "LA CORRECTA ES LA ":V 

3170 NEXT 1 

3180 PRINT :PRINT :PRINT "HAS CONTESTADO CORRECTAMENTE ":0C:" PREGUNTAS" 

3190 INPUT O 

3200 RETURN 

5000 DATA "¿Cuantos naíses forman la C.E.£.9","11","9","12",1 

5010 DATA "¿Cuantos fueron los miembros fundadores?" ,"3","6","7",2 

5020 DATA "Los naiíses fundadores fueron: "."Francia.Alemania Federal,italia.Belgi 
ca,Paises Bajos y Luxemburao"."Francia.Alemania.lrianda,ltalia,Béloica.,Luxemburo 
o y Suiza”"."Italia,Francia,fRusia,lrlanda.Béloica y Japón".,1 

5030 DATA "La C.E.E. surge en:"."El Tratado oe Paris"."Los Tratados de Berlin"," 
Los Tratados de Roma".,3 

5040 DATA "Grecia inmaresó en la C.E.£. enz"."1980","1975"."1972".2 

5050 DATA "España pi016 el inareso en la C.E.E. en:",*1980"."1977","1978",2 

5060 DATA "España inoresó en la C.£.£. en:”"."1986"."1985","1977".,1 pa 
5070 DATA "El- Comte Económico yv Social es:".”El Oraamo judicial","El Oroano eje 
cutivo”"."El Organo consultivo".,3 

5080 DATA "El Oroano ejecutivo orincipal está formado por :*,"El Tribunal de Jus 
ticia”"."El Parlamento Europeo".,"El Consejo de Ministros".3 

5090 DATA "El Organo judicial está formado por :*,"El Tribunal de Justicia", "El 
Parlamento Europeo".,"El Consejo de Ministros”. 1 


El programa presenta un menú en pan- 
talla con varias opciones: 


EMANAN MARA RA RARA RARA AAA 
XA A OMUNTDAD E NOMmICÉ s FEA AY 


XA C.E.E: x+ 
REEXIARAAAMA RA KK KK ERAN KXKAA Y 


Variaciones para otros 


ordenadores 
_ La primera de ellas permite ver un or- El programa ha sido realizado en un 
ganigrama de la distribución de los organis- BASIC muy general, por lo que puede ser 
mos en la C.E.E. El programa permite mante- utilizado en todos los ordenadores con sólo 
nerlo en pantalla para aprenderlo hasta que se tener en cuenta lo siguiente: 


desee y pulsando una tecla se vuelve al menú 


principal. COMMODORE: 


La segunda opción consiste en una lista 


Cambiar las sentencias CLS por 
de fechas y acontecimientos importantes en la PRINT CHR$(147) 


historia de la Comunidad, es importante cono- 
cer algunas de ellas, de esta forma se apren- 


de a relacionar hechos históricos. SPECTRUM: 
La tercera opción consiste en un test, Cambiar la sentencia END por GOTO 
muy necesario para poder evaluar los conoci- 9999 


mientos que tenemos sobre el tema. 
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APRENDER CON EL ORDENADOR 
PARA LOS MAS JOVENES 


3 Las horas 


Esté programa ha sido pensado para los 
más pequeños, sobre todo para aquellos que 
viven aferrados a los relojes digitales y olvi- 


REM 
REM 
REM 
REM 
CLS 
REM 


xk 


MOCOS KK 
REM xk ESFERA DEL RELOJ Xx 
REM RGIOIOGIOGIOOIOIOIOIOGIOOIODIOOK 
LET C1=100:LET C2=80 
CIRCLE C1,C2 ,75 

CIRCLE C1,02 ,2 

REM 
REM 
REM 
DIM A(12).E (12) 

FOR I=1 70 12 

READ A(1) .E(1) 

NEXT 1 

DIM TH(12,2),TM(12,2) 
FOR 1=1 TO 12 


xk 


NEXT 1 

REM OOOO OOOO OK 
REM xk ESFERA CON NUMEROS xx 
REM OOOO OOOO AA AX 
FOR 1=1 TO 12 

PRINT AT A(1).B(1>:1 

NEXT 1 

REM 
REM 
REM 
LET H=INT(RNDA12+1):LET H1=H 
LET M=INT(RNDxX12+1):LET Mi=M 
IF M>6 THEN LET H=H+1 

IF mM=12) THEN LET Hi=Hi+1:M1=0 
PLOT C1,82 ¿DRAW TH(H.1).TH(CH 
FLOT C1.02 :DRAW TM(M.1) «TM(M 
REM GGIOOIOIOORRIONK A 

REM xk FREGUNTA XX 

REM AGOIGOIOICOOIOIOIOIOIO O 

INFUT "HORA ":H0 

INPUT "MINUTO "¿mI 


PRINT "MAL" 

PRINT "SON LAS ":H1i;"2"2M1x5 

FOR I=1 TO 1000:NEXT 1 

RUN 
DATA 
DATA 
DATA 
DATA 
DATA 


1030 
1040 


10 
20 
30 
240 
50 
60 
70 
10) 
$0 


RANDOMIZE TIMER 

SCREEN 2 

CELS 

REM ROOOIOIOIOOGIOIOOIOIOIOIOOOIOIO e 
REM xk ESFERA DEL RELOJ xx 
REM OIC OOIOIOIOIIOIOIOO KK 


.2) 
.2) 


IF HO=H1 AND MI=M1xS THEN FRINT 
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dan cómo leer una hora en un reloj analógico 
con manecillas. 

Hemos creado dos versiones del pro- 
grama, una para el Spectrum y otra para el PC 
y el MSX; la adaptación al AMSTRAD y el 
COMMODORE es sencilla y sólo requiere uti- 
lizar las rutinas correspondientes para el di- 
bujo de la esfera del reloj. 


IORORORORORORO OOOO OOOO 
Xk PROGRAMA DE APRENDIZAJE DE LAS HORAS Xx 
PARA ZX-SPECTRUM 
MIMOS lol lll lll Ill lallRlRIOIOROjOK 


xx 


IOOICOIOOROOROIOIOOIOIOOIOIGIOIOIOIOIOIGIOIOIOGIBIOOIOO OR 
FOSICIONES DE LA NUMERACION xk 
MOROCCO OOOO OOOO OO OIOOIOIOIOIOOJOIO JOR 


READ TH(1,.1).TH(1,.2),T1M(1,1),T1M(1,2) 


IOROIOIOIOOOIOJOIOOO OOOO OOOO OCIO 
A* GENERACION ALEATORIA DE LA HORA Ax 
IORROROROROROIOROIOIOOIOIOOOOIOIOIOOIOIOIOIOIOODIOIORIOIOOROS 


"CORRECTO":GOTO 460 


2.16.7.18,11,20,15.18,18,16,20,12,18,9,15.6,11.4,716,4,8,3.12 
15.40,25.50,30.30.40.40,40,0,60,0 
30,-30,40,-40,15.-40.25.-50,.0.-90.0,-60 
-15.-40,-25.-50,-30,-30.-40.-40,-40,0,-60,0 
-30,30.-40.40,-15.40.-25,50,0,40,0,60 


REM OOOO IOIOROIOOIOOIOOIOIOROIOOIOOOIOIOIOIOPIOIOIOOORO 
REM xk PROGRAMA DE APRENDIZAJE DE LAS HORAS *Xx% 
REM OOOO OOO OIGO OOOO OIOIOIOOOIOIOIOIORIOIOON 


100 LET C1=300:LET C2=150 
110 CIRCLE (C1.C2),200,,..5/7 

120 CIRCLE (C1,02),2.,..5/7 z 

130 REM OOOO IOIORORIOIOOIOIOOOIOIOIOIOJDaK K 

140 REM xx POSICIONES DE LA NUMERACIÓN Xx 

10 REM OIOOOIAOIOOIOOOIOIPRSOIOISIIOIOIOIRIO. 

160 DIM A(12).B(12) 

170 FOR 1=1 TO 12 

180 READ A(I).B(1) 

190 NEXT 1 

200 DIM TH(12,2),TM(12,2) 

210 FOR I=1 TO 12 . 

220 READ TH(1.1).TH(1,2) .TM(1.1).TM(1,2) 

230 NEXT 1 

BO REM ROOOOIOOIOOOIOIOOIOIODOIOOPIOOR 

250 REM *x ESFERA CON NUMEROS xXx 

BOO REM AOOOOOOOIORIOIDIOK 

270 FOR I=1 TO 12 

280 LOCATE A(1).B(1):PRINT 1 q 
290 NEXT 1 q 
FOO REM AAA IOOROIOOIIOOOROOIOIOOIOIRPRIROIOIOIO XK 

310 REM Xk GENERACION ALEATORIA DE LA HORA kx 

BRO REM AROIAOIOIOOIOOOIROIORIO OOOO IRRRIOIROIOIOIOK 

330 LET H=INT(RNDxA12+1):LET H1=H 

340 LET M=INT(RNDkX12+1):LET Mi=M 

350. 1F M>6 THEN LET H=H+1 

360 1F M=12 THEN LET HI=H1+1:M1=0 

370 LINE (01,02)-(TH(H,1).TH(H,2)) 

3B0 LINE (01,02)-(TM(M,1).TM(,2)) 

390 REM OOOO IOOIOIOPIRIOJOR 

400 REM xk PREGUNTA XxX 

BO REM OOOGOIOONICIOOOR 

420 INPUT “HORA ":HO 

430 INPUT "MINUTO "¿MI 

440 1 HO=H1 AND MI=M1xS THEN PRINT "CORRECTO":GOTO 460 
450 PRINT "MAL" 

460 PRINT “SON LAS "¿H1:"2":M1x5 

470 FOR I=1 TO 1000:NEXT 1 

480 RUN : 

1000 DATA 4,42 ,7,49.11.53,16:49.19,42.20.35,19,24.16,18,11,14,7,16,8,23.3,33 
1010 DATA 350,80,375,50,370.115,400,100.400,150.450,150 
1020 DATA 370,185,400,200.350.220,375.250,300,250.300.250 
1030 DATA 250,220.225,250.2304185,200,200,200.150,150,150 
1040 DATA 230.115,200,100,750.80.225.50.300,50.300,10 
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PEQUEÑA HISTORIA DE LA INFORMATICA MS 


Un avance fundamental: 
la tarjeta perforada 


OMO bien sabemos, la tarje- 
ta perforada nació en Euro- 
pa, concretamente en Fran- 
cia, donde Jacquard, basán- 
dose en otros trabajos ante- 
riores (debidos a otro fran- 
cés —Falcon—,), la había uti- 
lizado con mucho éxito en su 
telar. También sabemos que Babbage la inte- 
gró en su máquina analítica (más bien en su 
proyecto de máquina analítica, porque nunca 
llegó a fabricarse). No sabremos nunca si esta 
máquina hubiera sido útil, o si no hubiera pa- 
sado de proyecto. En efecto, existen muchos 
tipos de personas creadoras: unas son «visio- 
narias», saben adelantarse al tiempo, imaginar 
cosas originales, nunca pensadas por nadie, 
otras son fundamentalmente pragmáticas, y 
saben tomar pequeños rasgos, características 
e ideas de otros, y, sin grandes filosofías, lle- 
varlas a la práctica obteniendo un producto 
útil, y en todo caso rentable, Finalmente, sólo 
unos pocos genios son capaces de unir esa 
imaginación de altura con dotes de sensatez: 
desde luego ellos son los verdaderos «genios», 
siendo los restantes (al menos para el que es- 
cribe) nada más y nada menos que «grandes 
hombres». 

Babbage no fue un genio. Fue, sin em- 
bargo, un hombre excepcional. Hollerith tam- 
poco lo fue, aunque sí perteneció al grupo de 
los pragmáticos capaces de ser útiles a la hu- 
manidad, y sacar provecho de sus cualidades. 

¿Quién era Herman Hollerith? El «inven- 
tor» de la tarjeta perforada. Realmente, ya sa- 
bemos que no fue él quien la inventó, ya que 
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se había utilizado en los telares europeos y en 
los diseños de Babbage, pero sí fue el que la 
difundió, al menos para la resolución de pro- 
blemas burocráticos que abrumaban a las em- 
presas de la época. 

Herman Hollerith tenía sólo diecinueve 
años en 1884, cuando pasó a formar parte 
como asistente del equipo del profesor Wi- 
lliam Trowbridge de la Universidad de Co- 
lumbia. El profesor Trowbridge tenía relacio- 
nes en el Gobierno, y también en el Censo, de 
forma que a su asistente, Hollerith, le interesó 
el problema de clasificación de datos del Cen- 
so, del que hablaba su maestro. Tomó un em- 
pleo en la oficina, para mejor comprender los 
problemas que estaba investigando, y prosi- 
guió con sus trabajos. 

En el año 1886 la población de los Esta- 
dos Unidos era, naturalmente, mucho menor 
que en nuestros días. Sin embargo, al menos 
para los funcionarios del Censo, eran «dema- 
siado americanos». En efecto, por ese año la 
oficina debía confeccionar un nuevo Censo, y 
el problema acuciante era que no habían ter- 
minado aún de completar el Censo anterior. El 
agobio era enorme. El personal que trabajaba 
era muy numeroso, pero la cantidad de infor- 
mación era asfixiante. Y el Gobierno, por fin, 
dotó de suficientes ingresos a la oficina para 
que promoviera un concurso. El ganador de 
este concurso fue Herman Hollerith, que pasó 
a formar parte de la plantilla. Hollerith com- 
prendió que la única solución posible era me- 
canizar el trabajo y organizar las tareas. Estu- 
dió las hojas del Censo y se dio cuenta de que 
muchas de las preguntas tenían respuestas 
sencillas, como, por ejemplo, sí, no o a veces 
tres o cuatro posibilidades como máximo. 
Dado el tipo de respuestas a procesar, se po- 
drían utilizar tarjetas y perforar (o no perfo- 


rar) determinadas posiciones. En cuanto a las 
contestaciones algo más complejas, siempre 
podrían representarse por grupos de perfora- 
ciones, creadas con un determinado código. 
Toda esta información codificada quedaba 
magníficamente almacenada en las tarjetas. 
Hemos de decir, sin embargo, que Hollerith 
comenzó a trabajar con tiras de papel, que te- 
nían la ventaja de no desordenarse, etc. Sin 
embargo, el sistema era menos flexible, y Ho- 
llerith decidió pasar a utilizar tarjetas en lugar 
de papel continuo. 


El siguiente paso fue un sistema eléctri- 
co de detección de las perforaciones. Si exis- 
tía una determinada perforación, se produci- 
ría un paso de corriente, y viceversa. El siste- 
ma consistía fundamentalmente en unas agu- 
jas que pasaban a través de las perforaciones, 
introduciéndose en un pequeño recipiente de 
mercurio, y completando así el circuito eléc- 
trico. Si existía perforación, pasaba una señal 
eléctrica (uno lógico). Si no existía (en esa de- 
terminada posición de fila y columna) no pa- 
saba ninguna corriente (cero lógico). Con to- 
dos estos elementos, y considerando que las 
operaciones fundamentales que llevaba a 
cabo la oficina eran de clasificación y recuen- 
to, Hollerith se puso en marcha, y creó una má- 
quina que comenzó a trabajar con el Censo de 
1890. 


Realmente, el Censo de 1890 no fue lo 
primero que realizó la máquina de Hollerith. 
Previamente se había utilizado en la confec- 
ción de unas tablas de mortandad en dos gran- 
des ciudades americanas, Baltimore y Nueva 
York. Tampoco fue el Censo de 1890 el único 
trabajo que hizo Hollerith para esa oficina: su 
equipo recalculó el Censo de 1886 en un tiem- 
po récord. Tardó dos años y medio en confec- 
cionar un Censo de sesenta y dos millones de 
personas (imagínese el lector el número de 
tarjetas), cuando el tiempo requerido para 
realizar la operación (sin la ayuda de la má- 
quina) superaba los siete años. 


El éxito de estas máquinas fue enorme. 
Salieron fotografías en periódicos de la época 
e incluso en revistas científicas (Scientific 
American). Sin embargo, no todos fueron éxi- 
tos para Hollerith. Su patrón, el Estado ameri- 
cano, no estaba muy contento con su trabajo. 
¿Por qué? Una costumbre medieval (no sabe- 
mos si muy práctica) hacía matar al mensaje- 
ro de noticias no muy agradables. Y según los 
resultados del Censo, la población de los Es- 
tados Unidos no había crecido lo previsto, 
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¿Sabía usted que... 


¿Sabe usted qué es una perforación de cons- 
tantes o en serie? 

Consiste en reproducir las perforaciones des- 
de las tarjetas «maestras» a otras tarjetas llamadas 
«de detalle». Las tarjetas maestras llevan un indica- 
tivo especial para distinguirlas. Para reproducirlas 
basta con la unidad de perforación, conectando a los 
punzones de perforación las escobillas directamen- 
te, de forma que una tarjeta que se encuentre frente 
a dichas escobillas trasladará toda la información de 
sus perforaciones a la tarjeta siguiente, que en ese 
momento se encuentra justo frente a los punzones. 
Esta operación se repite hasta encontrar una tarjeta 
con el código indicativo de final de proceso, dete- 
niéndose la operación. 

También se pueden efectuar perforaciones de 
resumen o «sumarias», obteniendo la información de 
los registros de otra máquina en lugar de obtenerla 
de la forma que acabamos de indicar. 


creando el consiguiente desasosiego en el Go- 
bierno. Pero Hollerith era un triunfador. Vol- 
vió a su Albany natal y fundó una compañía, 
la Tabulating Machine Company, de la que se 
desprendería en 1911. Antes había pleiteado 
con el Gobierno, que se resistía a pagar los al- 
quileres de sus máquinas. En 1910 el Gobier- 
no decidió crear y utilizar sus propias máqui- 
nas para esta labor, poniendo al frente de las 
mismas a James Powers. Hollerith tuvo mucho 
éxito con su nueva compañía, que comerciali- 


Herman Hollerith, inventor de máquinas automáticas de tabular 
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zÓ 3u4 máquinas a nivel mundial. Y de esta 
compañía, fusionada con otras, se creó la In- 
ternational Business Machines Corporation 
(IBM) algunos años después. Hollerith ganó 
mucho dinero con sus negocios. Era un hom- 
bre muy práctico, Utilizó con el Gobierno el 
sistema de alquiler de las máquinas (frente a 
la venta), y además él también proporcionaba 
las cartulinas para las tarjetas. Hollerith no era 
hombre que no evolucionara y, como sabemos, 
no se contentó con las tareas típicas del Cen- 
so, de clasificación y recuento, pasando a me- 
canizar la mayoría de las tareas administrati- 
vas y aritméticas de oficina, Además, al cabo 
de pocos años la mayoría de los Censos de paí- 
ses industrializados utilizaban máquinas de 
Hollerith. El uso de las máquinas de tarjeta 
perforada tampoco se redujo únicamente a so- 
lucionar problemas típicos de oficina o comer- 
ciales. Poco tiempo después, estas máquinas 
eran utilizadas de forma eficaz en trabajos 
científicos. Sin embargo, para la resolución de 
muchos algoritmos, las máquinas fueron inefi- 
caces. El problema fundamental era el tiempo 
requerido. Como siempre, si un problema 
como el Censo, o una predicción meteorológi- 
ca, puede resolverse más tarde de un plazo ra- 
zonable, ya no sirve para nada y, por tanto, 
pasa a no tener ningún interés la realización 
de los cálculos, 

Hasta ese momento era de poco interés 
(o al menos eran poco fiables) afirmaciones 
hechas en los periódicos sobre las tendencias 
de la población (lo que hoy llamamos encues- 
tas). Sin embargo, con la máquina de Hollerith 
se podían extraer datos interesantes. En octu- 
bre de 1890 el New York Herald publicó «Los 
campos a los que puede acceder la mujer tra- 
bajadora están ensanchándose muchísimo. 
Muchos empleos, que antes estaban cerrados 
pará ella, ahora se están abriendo sin reser- 
vas... ¿En cuántos han probado ser más efica- 
ces que los hombres? Al menos en el Censo 
han probado que lo son.» 

Las máquinas de tarjeta perforada, por 
lo general, son máquinas independientes, es 
decir, realizan operaciones muy concretas, La 
información se perfora sobre tarjetas (seme- 
jantes a las que se han estado utilizando hasta 
hace pocos años), y puede procesarse o bien 
almacenarse. 

La típica tarjeta conocida de todos está 
dividida en ochenta columnas y en doce filas 
(X, Y, 0, 1, 2, 3...). Con este sistema se pueden 
almacenar 12 x 80 = 960 dígitos binarios. Un 1 
sería una perforación; un 0, la ausencia de di- 


50 


escobillas 
2.2 lectura 


cuadro de conexiones 


Tabuladora. 


cha perforación. Los números decimales se re- 
gistran escribiendo un dígito por columna, de 
forma que se pueden escribir números con 
ochenta decimales, o diez números de ocho dí- 
gitos, etc. 

Los dígitos se escriben perforando las 
columnas adecuadas. Las líneas X e Y sirven 
para dar instrucciones especiales a la máqui- 
na o para indicar el signo de los números per- 
forados en las otras diez líneas. También se 
utilizan para registrar información alfabética, 
por ejemplo, perforando la línea X y la línea 3, 
se habría anotado una C. 

Hemos visto someramente cuál fue la 
solución de Hollerith a problemas de mecani- 
zación como el de la oficina del Censo. Sin em- 
bargo, es probable que no hayamos pensado 
que la máquina de Hollerith necesitaba ade- 
más otra máquina que realizara las perforacio- 
nes de forma rápida y eficaz. (Considere el 
lector los errores que se podrían cometer si 
se perforara en la posición contigua a la de- 
seada, por ejemplo.) 

La máquina perforadora era muy seme- 
jante a una máquina de escribir (es decir, dis- 
ponía de un teclado, y por cada golpe se pa- 
saba a la siguiente posición de la tarjeta). Las 
perforaciones se llevaban a cabo por unos 
punzones especiales. Naturalmente, la veloci- 
dad (y fiabilidad) eran factores fundamenta- 
les. Operadores con experiencia podían con- 
seguir perforar de 250 a 500 tarjetas en una 
hora. 

La experimentación dio lugar a la apa- 
rición de otras máquinas que trataban las tar- 
jetas: las verificadoras. Estas máquinas eran 
muy similares a las anteriores, pero en lugar 
de ir provistas de punzones llevaban unos per- 
cutores especiales. Las más comunes simple- 


mente se detenían cuando no encontraban la 
perforación en su lugar. 

La lectura de cada una de las tarjetas 
se realizaba en paralelo, es decir, las ochenta 
columnas a la vez. El equipo iba provisto de 
unas escobillas (ochenta) que hacían contacto 
con un rodillo metálico. Cuando aparecía una 
perforación, se producía una corriente eléctri- 
ca que era recogida por la escobilla corres- 
pondiente, que a su vez la enviaba a la unidad 
de interpretación de datos. El dato anotado es 
un valor lógico que corresponde al momento 
exacto en el que se producen las corrientes 
correspondientes (la fila) y las columnas que 
han permitido el paso de la corriente. Con esa 
información, la máquina responderá como 
haya sido preparada. 

Veamos con algún detalle las tres má- 
quinas básicas que componen un equipo de 
tarjeta perforada: la clasificadora, la repro- 
ductora y la tabuladora. La clasificadora selec- 
ciona las tarjetas leyendo una columna en 
cada pasada, colocándolas en unos cajetines 
numerados, correspondientes a los valores de 
esa columna. Con este sistema, si se va a cla- 
sificar un mazo de tarjetas por una numeración 
de tres dígitos, será necesario efectuar tres 
pasadas, si se clasifican por cinco dígitos cin- 
co pasadas, etc. Terminada cada pasada, las 
tarjetas vuelven a reunirse en el orden ade- 
cuado, para volver a efectuar la pasada si- 
guiente. 

Las tarjetas van avanzando por un rodi- 
llo, con una escobilla situada en la columna 
que se desee. Pasan después por un mecanis- 
mo de selección que las envía a los cajetines 
correspondientes. El número de cajetines es 
igual al de las filas (doce) más uno para las tar- 
jetas rechazadas. El mecanismo de clasifica- 
ción consiste en un grupo de lengúetas de 
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acero y unos electroimanes. Cuando éstos se 
activan, las lengúetas caen. Como esta opera- 
ción se realiza en un determinado momento, 
es decir, cuando la tarjeta se encuentra sobre 
un determinado cajetín, el problema queda re- 
suelto. Existen algunos tipos más modernos 
(para su momento, naturalmente) que conta- 
ban las tarjetas que existían en cada cajetín. 
Estas máquinas eran muy ingeniosas y útiles. 
También era «relativamente» rápidas, ya que 
podían clasificar de 450 a 800 tarjetas por hora, 
velocidad considerable en su momento. 

La reproductora, otra de las piezas cla- 
ve, estaba formada por dos partes muy inde- 
pendientes: la unidad de lectura y la de per- 
foración. Cada una de estas unidades va pro- 
vista de su propio alimentador de tarjetas, ca- 
jetín de salida, escobillas, etc. La unidad de 
perforación lleva, además, su juego de punzo- 
nes. Estas dos zonas de la reproductora podían 
utilizarse de muchas formas, combinando las 
posibles conexiones de clavijas y conmutado- 
res. 

Las máquinas reproductoras podían 
«Copiar» las perforaciones de un grupo de tar- 
jetas en otro, tanto en las mismas columnas, 
como en otras distintas. Naturalmente, necesi- 
ta dos juegos de tarjetas, unas vírgenes, que 
se colocaban en la unidad de perforación, y 
las maestras, que se colocaban en la unidad 
de lectura. Una vez realizada la copia, las tarje- 
tas se verificaban para comprobar que las per- 
foraciones estuvieran en los mismos lugares 
que las de las tarjetas maestras. Esta opera- 
ción, muy importante, se realizaba mediante 
un juego de escobillas. 

La tabuladora se encarga de realizar 
operaciones de lectura, operaciones aritméti- 
cas (de sumar y restar) y la impresión. Esta 
máquina lleva unos contadores (que son sim- 
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plemente unos registros acumuladores, donde 
los números se pueden sumar y restar de un 
registro a otro). La unidad de lectura dispone 
de un juego doble de escobillas, que lee y 
compara cada tarjeta con la siguiente, en un 
campo de columnas dado. Se utiliza principal- 
mente para la creación de subtotales. 

La unidad de impresión, dentro de la ta- 
buladora, utiliza un sistema de impresión «en 
paralelo», es decir, imprime una línea comple- 
ta cada vez (no va escribiendo secuencialmen- 
te cada letra, como ocurre en las máquinas de 
escribir). La información puede enviarse a 
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esta unidad de impresión tanto desde las pro- 
pias tarjetas como desde los registros. 


Pero no aburramos al lector con más de- 
talles sobre las máquinas de tarjeta perforada. 
Aparecieron muchos otros modelos, que se 
fueron especializando para distintas tareas. 
También se extendieron ampliamente, y el or- 
denador no consiguió desterrarlas definitiva- 
mente hasta hace muy pocos años. Durante 
toda una época, el ordenador ha sido un ele- 
mento más (el más importante) dentro del 
equipo de mecanización de las empresas. 
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Mi Primitivas en comunicación 


N programación paralela 

uno de los temas más inves- 

tigados es el desarrollo de 

las primitivas de comunica- 

ción. Las razones de que 

existan comunicaciones en 

programas en paralelo son 

las siguientes. En primer lu- 
gar, se utilizan para enviar datos o señales a 
otro gránulo, también para sincronizar con 
otro gránulo, y, finalmente, para pedir que 
otro gránulo realice una determinada acción. 
Las comunicaciones se basan generalmente 
en el envío de mensajes o mediante el uso de 
variables compartidas. Como las variables 
compartidas se ha visto que no son útiles en 
programas que se ejecutan en una red de pro- 
cesadores limitémonos a repasar las primiti- 
vas de comunicación basadas en el envío de 
mensajes, para recibirlos y para devolver res- 
puestas. Las características importantes para 
estas primitivas de comunicación son los tipos 
de semántica de sincronización que pueden 
soportar, y si se ejecutan explícitamente o no. 
Las primitivas de comunicación pueden ser 
bloqueantes, o no bloqueantes. Se dice que 
una primitiva es bloqueante si el gránulo que 
está ejecutando esa primitiva es retardado 
hasta que se realice la comunicación. Si no es 
así, se llama no bloqueante. Si ambas primiti- 
vas (emisora y receptora) son bloqueantes, se 
dice que la comunicación obtenida es síncro- 
na. A diferencia del envío de mensajes, que 
siempre es explícito, la recepción puede ser 
a su vez explícita o implícita. En las recepcio- 
nes explícitas, el proceso ejecuta expresa- 
mente una primitiva receptora para recibir un 
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mensaje, mientras que en la recepción implí- 
cita se activa una especie de procedimiento 
con la llegada del mensaje. Todas estas se- 
mánticas son útiles, ya que existen muchas 
aplicaciones diferentes que requieren distin- 
tos tipos de primitivas de comunicación. Un 
requisito que prevalece en las primitivas de 
comunicación a nivel de configuración es que 
su utilización debe se transparente para las 
posiciones de los gránulos de comunicación, 
de forma que éstos puedan ser asignados a 
procesadores distintos, sin que se produzcan 
alteraciones. Los distintos sistemas disponi- 
bles utilizan combinaciones diferentes de pri- 
mitivas. 

Primitivas emisoras. Una propiedad im- 
portante en el envío de mensajes es qué 
ocurre si se retarda la emisión desde un grá- 
nulo. Se puede emitir por tres métodos: envío 
sin bloqueo, envío con bloqueo, y envío con 
llamada remota. El envío sin bloqueo hace que 
el proceso de emisión continúe su ejecución 
nada más invocar el comando de emisión. 
Concretamente, el gránulo emisor no es retar- 
dado incluso si el gránulo receptor no está 
preparado, por el momento, para la recepción 
del mensaje. La ventaja sustancial de esta pri- 
mitiva es que se obtiene el mayor grado de pa- 
ralelismo posible, ya que el emisor no espera 
jamás al receptor. El inconveniente de la emi 
sión sin bloqueo es que la implementación ne- 
cesita que los mensajes que se envían guar 
den cola, antes de ser recibidos, Como las me- 
morias intermedias son finitas, el sistema ope- 
rativo, o el soporte de tiempo de ejecución de- 
ben tomar las acciones oportunas en los casos 
en que no exista ya memoria disponible. La ac- 
ción más común consiste en bloquear el grá- 
nulo que va a enviar el mensaje hasta que éste 
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pueda ser almacenado, lo cual está en tremen- 
da contradicción con la semántica del envío 
sin bloqueo, Más aún, este tipo de bloqueos ha- 
cen que el programa paralelo quede estanca- 
do si todos los gránulos esperan que exista el 
consiguiente espacio disponible, Un método 
para obviar estos estancamientos podría ser li- 
mitar el número de mensajes que envía cada 
gránulo, para evitar que se produzcan mensa- 
jes con demasiada rapidez. (Esta información 
puede, evidentemente, especificarse dentro 
de la configuración.) Por otro lado, el sistema 
puede desechar el mensaje más antiguo (o el 
más moderno), en lugar de bloquear el envío 
desde el gránulo. El mantener solamente el úl- 
timo mensaje (el más moderno) es la oOpera- 
ción más sensata para sistemas de control de 
tiempo real, si los gránulos sólo necesitan el 
estado actual de los dispositivos controlados, 
Pero si se desecha el último mensaje, el más 
moderno, la operación sólo tendría sentido en 
el supuesto de que el que lo envía puede de- 
tectar que el mensaje ha sido eliminado, y, por 
consiguiente, puede enviar de nuevo el men- 
saje. 

La naturaleza asíncrona de las emisio- 
nes sin bloqueo causa dificultades de progra- 
mación en casos de situaciones excepcionales 
y verificaciones de la corrección. Si ocurre un 
error durante la transmisión del mensaje 
(como, por ejemplo, la terminación del gránu- 
lo receptor o un mal funcionamiento del me- 
dio de comunicación), es difícil devolver un 
código de error al emisor, ya que la ejecución 
ha seguido arbitrariamente desde el punto en 
que se realizó el envío, o también el propio 
emisor ha podido terminar cuando ocurrió la 
situación excepcional. Por estas razones, los 
programas que utilizan comunicaciones asín- 
cronas son mucho más complicados de verifi- 
car que los que utilizan comunicaciones sín- 
cronas. En el primer caso, el estado actual del 
emisor puede no corresponderse con el esta- 
do en el que se envió el mensaje, y, por tanto, 
cuando éste se reciba, el receptor no-podrá 
hacer aseveraciones sobre el estado del emi- 
sor. 

En emisiones con bloqueo, los gránulos 
que envían mensajes se retardan hasta que el 
gránulo receptor pueda recibirlos. Como el 
gránulo emisor está bloqueado, no es necesa- 
rio utilizar memorias intermedias para mensa- 
jes en la implementacion. Además, tampoco 
serán necesarias primitivas de sincronización 
adicionales, ya que el emisor y el receptor es- 
tán sincronizados desde el momento en que se 
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comienza la comunicación. Los programas que 
están escritos utilizando emisiones con blo- 
queo son muy fáciles de verificar, ya que la 
instrucción de envío con bloqueo y su corres- 
pondiente instrucción receptora se pueden 
considerar como una única instrucción de 
asignación que está «distribuida» (en dos mó- 
dulos de programa distintos). Pero no pense- 
mos que este tipo de envíos no tiene inconve- 
nientes de ningún tipo. El principal, posible- 
mente, es que al utilizar envíos con bloqueo se 
inhibe el paralelismo, ya que el gránulo emi- 
sor no puede seguir su ejecución hasta que el 
gránulo de destino esté preparado para reci- 
bir su mensaje. Otra de las desventajas es que 
la implementación del envío con bloqueo re- 
quiere dos conmutaciones adicionales, una 
para ejecutar otro proceso, mientras el emisor 
espera que se reciba el mensaje, y otro para 
continuar el envío. 

La tercera posibilidad es el envío por 
llamada remota. Con este sistema, el gránulo 
emisor espera hasta que recibe una respuesta 
explícita del gránulo receptor, Después de re- 
cibir un mensaje el gránulo receptor ejecuta 
un procedimiento para devolver la contesta- 
ción, Esta primitiva es análoga a la llamada de 
un procedimiento en los lenguajes secuencia- 
les. Esta forma de.comunicación es clara y 
además eficaz cuando se corresponde con la 
estructura de comunicación de los programas 
de aplicación. Sin embargo, algunos patrones 
de comunicación que son muy útiles no pue- 
den programarse usando esta forma. Entre 
ellos citamos comunicaciones que no necesi- 
tan respuesta por cada petición, o cuya res- 
puesta debe llegar desde otro proceso distin- 
to del receptor original. Es importante fijarse 
en que el envío bloqueado es un caso especial 
de llamada remota, sin contestación, 

Veamos ahora las primitivas que deben 
contestar. 

En muchos lenguajes y sistemas que so- 
portan envíos por llamadas remotas, el proce- 
so objeto de la respuesta es implícito, ya que 
debe haberse recibido el mensaje de este pro- 
ceso para que la contestación sea válida. Así 
se ve reflejada la analogía entre los envíos por 
llamada remota y las llamadas a un procedi- 
miento. La utilización de nombres implícitos, 
sin embargo, requiere que la respuesta al 
mensaje sea enviada antes del siguiente men- 
saje, o que los mensajes recibidos sean apila- 
dos y sacados de la pila según se vayan ge- 
nerando las respuestas. El lenguaje ADA, por 
ejemplo, utiliza este procedimiento de alma- 


cenar mensajes en una pila. La posibilidad de 
contestar mensajes en un orden cualquiera (no 
relacionado con el orden en el que los mensa- 
jes se reciben) añade mucha potencia y ver- 
satilidad al envío por llamada remota. Esto úl- 
timo puede conseguirse especificando el nom- 
bre del proceso objetivo, explícitamente den- 
tro del comando respuesta. Los procesos de- 
pendientes de otros, que necesitan manejar 
los recursos internamente, pueden codificar- 
se con frecuencia bastante eficazmente me- 
diante respuestas explícitas. Sin embargo, el 
inconveniente es que la estructura del progra- 
ma se complica enormemente, haciendo muy 
difícil su comprensión. 

En lo que respecta a las primitivas re- 
ceptoras, la recepción de mensajes se puede 
considerar activa o pasiva, dependiendo de si 
el proceso ejecuta explícitamente operaciones 
de recepción. Los lenguajes que soportan re- 
cepción activa ofrecen operaciones de recep- 
ción que pueden ser ejecutadas explícitamen- 
te por los gránulos. La forma más común de es- 
tas «operaciones» de «recepción activa» blo- 
quea el gránulo receptor hasta que llegue el 
mensaje, ya que el proceso receptor no tiene 
otra tarea que hacer mientras espera el men- 
saje. Por otro lado, está la recepción «sin blo- 
queo», que nunca produce retardos en el grá- 
nulo que se recibe. Entre ambas posibilidades 
está la recepción de bloqueada, con «timeout» 
(control de límite de tiempo), que limita el 
tiempo que el gránulo debe esperar a que lle- 
gue el mensaje. 

Una señal de recepción «con bloqueo» 
realiza una sincronización implícita del módu- 
lo (gránulo) receptor, desde que dicho módu- 
lo receptor se retarda hasta después del en- 
vío del mensaje. Si se utiliza una recepción sin 
bloqueo, será necesario utilizar algún proce- 
dimiento de espera-ocupado, para resolver el 
problema de la sincronización. En los casos en 
los que un único gránulo seideba comunicar 
con muchos otros, la dificultad de usar recep- 
ción con bloqueo estriba en que debe deter- 
minarse a priori el orden en el que se van a 
establecer las comunicaciones. Para permitir 
recepciones no determinísticas desde varios 
gránulos, existen muchos sistemas y lenguajes 
que soportan diferentes formas del comando 
de control, y que se pueden utilizar para es- 
perar los mensajes en el caso de que éstos 
provengan de distintos gránulos. También se 
pueden obtener recepciones no determinísti! 
Cas utilizando técnicas de recepción condicio- 
nales. En estos casos, las instrucciones recep- 
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toras incluyen expresiones Booleanas, que se 
utilizan para seleccionar el mensaje deseado 
entre varios mensajes pendientes. Las recep- 
ciones sin bloqueo también se pueden utilizar 
para recibir mensajes de forma no determinís- 
tica, mediante un sistema de llamadas alterna- 
tivas. En recepciones pasivas, la llegada de un 
mensaje comienza la ejecución del correspon- 
diente cuerpo de código. Dicho con otras pa- 
labras, el receptor proporciona un conjunto de 
manejadores de mensajes, y, se llamará al ma- 
nejador adecuado en cuanto llegue el mensa- 
je al receptor. Entre los manejadores de seña- 
les, podemos indicar el soporte en UNIX, ciér 
tas primitivas de comunicación utilizadas en 
DP y Argus, y las llamadas a procedimientos 
remotos implementadas en Xerox PARC, La 
ventaja mayor de las recepciones pasivas con- 
siste en que el orden en el que se manejan los 
mensajes está determinado por los emisores, 
en lugar de serlo por el receptor. Este punto 
es importante, al ayudar a explotar mucho más 
el paralelismo, ya que los procesos $e ejecu- 
tan dependiendo del controlador que actúa 
bajo demanda en lugar de hacerlo de forma 
predeterminada. El proceso de recepción 
puede manejar varios mensajes, de forma con- 
currente o secuencial, dependiendo de la 1m 
plementación, y semántica. La recepción pasi- 
va está asociada generalmente con la emisión 
de llamadas remotas. Así pues, para obtener 
el máximo grado de paralelismo posible, ye 
pueden utilizar las emisiones sin bloqueo con 
recepción pasiva. 

Vamos a definir ahora un nuevo lórmi 
no. La conectividad. Este término indica el mu 
mero de gránulos que comparten el mismo cn. 
nal, en un momento dado, Exixlen nueve op 
ciones posibles: uno con uno, uno con muchon, 
uno con cualquiera, cualquiera con uno, cual: 
quiera con muchos, cualquiera con cualquie 
ra, muchos con uno, muchos con muchos, y 
muchos con cualquiera, La primera opolón, 
uno con uno, significa que el canal de comu 
nicación conectará un 6miñor Con UN Tucep» 
tor. Por tanto, utilizando enla tipo de canal, nolo 
un único mensaje emisor podrá enviar un 
mensaje al receptor, Las pombilidadea cual. 
quiera con uno, y muchos con uno mMgnifican 
que se pueden tener Varion emiñores conecta 
dos con un receptor, 51 el reoaptor puede re: 
cibir un mensaje desde cualquier emisor, la 
emisión será de cualquiera con uno. La en 
sión de muchos con uno algnifica que se reci 
be el mensaje cuando todos los enisores han 
enviado mensajes, El POL puede soportar este 
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tipo de envios, pero su utilidad no ha queda- 
do muy olara, por el momento. Las emisiones 
uno con muchos, y uno con cualquiera, signi- 
fican que un emisor está conectado a varios 
receptores. Cuando cada mensaje es enviado 
por el emisor a lodos los receptores, se trata 
de una emisión uno con muchos. Se ha demos- 
trado con la experiencia, que la emisión de 
mensajes multidestino es mucho más eficaz 
que varias transmisiones uno con uno, incluso 
en los casos en los que la red local de la que 
hablamos no soporte la difusión (broadcastig). 
La emisión uno con cualquiera permite al emi- 
sor enviar un mensaje a un receptor concreto, 
en lugar de hacerlo a todos los receptores. 
Esto último puede emularse utilizando varias 
conexiones uno a uno, sólo si el emisor conoce 
a priori cuál de los gránulos debe recibir el 
mensaje. Las conexiones muchos con muchos 
combinan los tipos muchos con uno y uno con 
muchos. Aunque es posible emular las co- 
nexiones cualquiera con uno y uno con mu- 
chos mediante conexiones uno con uno, el sis- 
tema resultante no es en absoluto práctico, El 
sistema MODEL, por ejemplo puede soportar 
las conexiones uno con uno, cualquiera con 
uno, y uno con cualquiera. 

Los formatos permitidos para los men- 
sajes pueden ser de dos tipos: en formato no 
imprimible o en formato imprimible. Los men- 
sajes «no imprimibles» son mensajes que se 
consideran como una secuencia de bytes, 
cuyo significado está establecido entre el emi- 
sor y el receptor. Los sistemas y lenguajes que 
utilizan este tipo de mensajes suelen limitar la 
longitud de los mensajes a un valor fijo, aun- 
que también pueden permitir, en ciertos ca- 
sos, mensajes de longitudes variables. Los 
mensajes no imprimibles son más sencillos de 
manejar y más eficaces que los imprimibles, 
por lo que es frecuente que se utilicen en la im- 
plementación, Sin embargo, los programas es- 
critos utilizando mensajes no imprimibles sue- 
len presentar problemas a la hora de su depu- 
ración, siendo mucho más sencillos de depu- 
rar aquellos que utilizan mensajes imprimi- 
bles, De esto último se deduce que los siste- 
mas de comunicación que utilicen programas 
de aplicación, deben soportar mensajes impri- 
mibles. 

Es útil comprobar que, para cada men- 
saje enviado y recibido, es importante que 
el tipo del mensaje emitido sea idéntico 
al tipo de mensaje que espera el receptor. Así, 
la comunicación puede comprobarse de dos 
formas: bien estáticamente, o dinámicamente. 
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La ventaja de la comprobación estática de 
consistencia, es que se detectan inmediata- 
mente las faltas de concordancia en el tipo. 
Las comprobaciones dinámicas de consisten- 
cia aportan la ventaja de que pueden utilizar 
el mismo canal de comunicación tanto para 
emitir como para recibir mensajes con repre- 
sentaciones diferentes. Una de las desventa- 
jas de la comprobación dinámica de la consis- 
tencia es que no puede detectarse si la comu- 
nicación es inconsistente hasta el momento de 
la ejecución, lo que significa que todas las ex- 
cepciones producidas por error en el tipo de 
mensaje deben manejarse y valorarse duran- 
te la ejecución. Otra de las desventajas es que 
existe un overhead (procese adicional que 
carga el sistema) durante la ejecución, para 
comprobar la consistencia del mensaje duran- 
te ésta. 


Además, la información, sobre el tipo 
de mensaje necesita ser enviada con datos, y, 
por tanto, deben transmitirse más bits. Este 
overhead que se produce en tiempo de ejecu- 
cion, se puede disminuir utilizando comproba- 
ciones dinámicas de consistencia, basadas en 
mecanismos del tipo «función hash». Las com- 
probaciones de tipo se realizan utilizando va- 
lores «hash» de las descripciones de tipo, cal- 
culados en el momento de la compilación, y el 
tamaño del «rango» de los valores utilizados 
por la función hash determina el grado de se- 
guridad obtenido. 


Se podría establecer cuáles son los ti- 
pos de mensajes permitidos basándonos en el 
tema, o del overhead producido antes y des- 
pués de la transmisión del mensaje. Si no se 
permiten indicadores dentro del mensaje, se 
produce el overheaad, tanto si es de tamaño fijo 
o variable, al copiar mensajes en y desde las 
memorias de transmisión. Sin embargo, si se 
permiten indicadores dentro de los mensajes, 
éstos podrán ser estructuras de datos arbitra- 
riamente complejas. En estos casos, las estruc- 
turas de los datos son transformadas antes de 
ser copiadas en las memorias intermedias de 
transmisión, convirtiéndose los indicadores en 
direcciones interiores de esas memorias antes 
de la transmisión. Estas estructuras de datos 
se reconstruyen nada más llegar a la recep- 
ción. También es necesario preservar la par- 
tición y la rotación cíclica dentro de las estruc- 
turas de datos transmitidas, y esto puede ha- 
cerse utilizando durante las conversiones una 
tabla de traducción entre indicadores y direc- 
ciones, Dichas conversiones deben ser trans- 


parentes para el programador, y se podrían 
realizar por el sistema automáticamente du- 
rante la comunicación. La transmisión de men- 
sajes se hace mucho más compleja si los men- 
sajes contienen tipos de datos abstractos, 
como, por ejemplo, una pila (stack) o una tabla 
de símbolos. Si diferentes implementaciones 
utilizan representaciones diferentes, para el 
valor del dato abstracto, como resultado se 
produce un overhead, obtenido al traducir un 
valor abstracto almacenado en una repesenta- 
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ción dentro de otra representación, durante la 
transmisión. Existe un método para transmitir 
estos tipos de datos abstractos. Sin embargo, 
el método requiere que el programador escri- 
ba las operaciones de codificación y decodi- 
ficación para cada implementación de un tipo 
de dato abstracto. Los valores abstractos se 
codifican en representación canónica, antes 
de la transmisión, para, a continuación, deco- 
dificarlos en la representación interna del re- 
ceptor. 


TERMINOLOGIA DE VIDEOTEXTOS E 


1 REPERTORIO DE LENGUAJES 
DE CONFIGURACION 


AGAMOS un resumen bre- 
ve de algunos lenguajes de 
configuración. La mayoría 
de los lenguajes de progra- 
mación paralela, orientados 
a mensajes incluyen carac- 
terísticas que en cierto 
modo deben considerarse 
como lenguajes de configuración. Por ejem- 
plo, en la mayoría de los lenguajes de progra- 
mación, las relaciones interprocesales se ex- 
presan dentro de cada proceso individual. 
Esta aproximación es únicamente para los len- 
guajes desarrollados específicamente para 
describir especificaciones de configuración 
separadas. Veamos algunos de ellos. 


NETSLA. Este lenguaje orientado a mensajes 
es útil para separar las relaciones interpro- 
cesales a partir de las descripciones de los 
procesos. Consiste esencialmente en dos 
sublenguajes, un lenguaje de especificación 
de la red local, llamado NETSLA, y un len- 
guaje de descripción del proceso, llamado 
ALSTEN. Los procesos están escritos en 
ALSTEN, que es una extensión del PASCAL 
que permite la declaración de puertas que 
permitan soportando operaciones de trans- 
misión de mensajes. Estas declaraciones es- 
tán ya separadas de las definiciones propias 
de la red, y puede considerarse que forman 
una unidad. A su vez, ALSTEN se ocupa bá- 
sicamente de la emisión sin bloqueo, ya que 
el envío se bloquea hasta que el valor del 
mensaje se copie en la memoria intermedia 
de mensajes de los receptores, que deben 
tener una capacidad de recepción no deter- 
minística. Permite conexiones del tipo cual- 
quiera con uno y uno con muchos. NETSLA 
tiene capacidad para que el programador 
especifique la configuración inicial, crean- 
do los procesos y definiendo las conexiones 
entre puertas. La consistencia de las co- 
nexiones se basa en procedimientos de 
comprobación del PASCAL, muy fiables. El 
manejador de sucesos puede modificar la 
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topología de la red creando procesos, 
borrándolos y redefiniendo las conexiones 
entre puertas. 


PCL. Siglas de Process Control Languaje 


(Lenguaje de Control de Procesos). Es un 
lenguaje, como indica su nombre, pensado 
para el control de procesos y diseñado es- 
pecialmente para poder especificar estruc- 
turas de procesos muy largas y complejas, 
sobre redes locales de procesadores. En el 
momento de su creación, apenas si existían 
lenguajes que solucionaran los problemas 
de las especificaciones de este tipo de pro- 
cesos largos y complejos. Su estructura bá- 
sica está formada por «celdas», que son gru- 
pos de componentes como pueden ser pro- 
cesos, segmentos de memoria (espacios 
compartidos), puertas y uniones (links) en- 
tre módulos. Cada una de estas celdas pue- 
de a su vez contener subceldas, creando 
una descripción jerárquica de la estructura 
del proceso. La estructura del proceso se 
determina de un modo estático, sin embar- 
go, las instancias del proceso y los segmen- 
tos de memoria se crean en el momento de 
la ejecución. 

La descripción de la estructura de un 
proceso está formada fundamentalmente 
por tres partes: parte estática, parte evolu- 
tiva y creación. La parte estática identifica 
los componentes de la red del proceso y sus 
posibles topologías. La parte evolutiva des- 
cribe el momento de la creación de los com- 
ponentes, y cómo se crearon, ejecutaron, 
eliminaron, etc. La última parte, de crea- 
ción, especifica hasta qué punto se compar- 
ten copias de unos componentes por parte 
de otros componentes de la estructura, es 
decir, cómo cambia la topología al crearse 
nuevos componentes en el momento de la 
ejecución. Como los segmentos de memo- 
ria, etc., se crean en el momento de la eje- 
cución, sus conexiones se efectúan según 
las necesidades. Para poder disponer de es- 
tas uniones dinámicas, y conexiones, el len- 
guaje dispone de nueve tipos distintos de 
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uniones (links), con tres posibles emisores y 
tres posibles receptores. Este lenguaje tie- 
ne todavía que desarrollarse, sobre todo en 
lo que respecta a la depuración y localiza- 
ción de recursos. 


CONIC. Consiste en un conjunto de herra- 
mientas integrado para la construcción y 
manejo de sistemas de control de conjuntos 
distribuidos de ordenadores. Fundamental- 
mente, se detiene en los conceptos modula- 
res de software para la construcción de pro- 
gramas, y en la creación de sistemas con 
módulos individuales de software, distribui- 
dos en una determinada configuración. 


La unidad principal es el módulo, que 
está formado por puertas, tipos, variables, 
procedimientos, tareas, etc. Las puertas son 
módulos de interface que permiten la inter- 
conexión de otros módulos de muy diversas 
formas. Las primitivas de comunicación son 
del tipo emisión sin bloqueo y recepción 
con bloqueo. El tamaño de la cola de las me- 
morias intermedias para cada puerta se de- 
termina estáticamente (a priori). Cuando se 
sobrepasa el espacio disponible, se so- 
breescribe el mensaje más antiguo. Las in- 
terconexiones entre gránulos pueden ser 
de tipo uno con uno, cualquiera con uno y 
uno con muchos. 

La configuración del sistema consiste 
en la definición del tipo, creaciones de mó- 
dulos e interconexiones. En las últimas ver- 
siones, el CONIC puede soportar modifica- 
ciones de la configuración del sistema per- 
mitiendo creación dinámica de módulos 
(por supuesto borrado, interconexión, etc). 


DICON. Ha sido desarrollado para la crea- 
ción de programas paralelo en tiempo real, 
fundamentalmente para sistemas multisen- 
sores. Los programas paralelo en tiempo 
real están construidos configurando un con- 
junto de programas secuenciales, utilizando 
un lenguaje de configuración distribuido 
llamado DICON. Los gránulos del sistema se 
pueden programar en varios lenguajes, 
como LISP, C o PROLOG, dependiendo de 
la tarea que realicen, para que sean más efi- 
caces. El lenguaje DICON se ha diseñado 


especialmente para que soporte la cons-: 


trucción modular de los programas parale- 
los, y que pueda expresar la información ne- 
cesaria para crear, cargar y ejecutar un 
programa paralelo, La configuración de un 
programa paralelo consiste en la declara- 
ción del proceso, los requerimientos, las 
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restricciones a tener en cuenta en el proce- 
so en tiempo real, prioridades y otras ins- 
trucciones de control del proceso, El pro- 
grama paralelo se construye compilando la 
configuración, y se carga y ejecuta, solo, o 
bajo la supervisión de un intérprete de co- 
mandos, que permite al programador se- 
guir el proceso y controlar la ejecución de 
cada gránulo, para evitar posibles proble- 
mas. 

El lenguaje soporta comunicaciones 
unidireccionales y bidireccionales. Los grá- 
nulos emiten mensajes con un sistema sin 
bloqueo, utilizando una recepción con:blo- 
queo, ' 

El programador construye el programa 
distribuido y lo ejecuta. El método es el si- 
guiente: primero crea los subsistemas y pro- 
gramas componentes, después describe la 
configuración de los programas paralelo en 
DICON, luego compila la configuración, y fi- 
nalmente la ejecuta, pudiendo seguir y con- 
trolar la ejecución del proceso de forma in- 
teractiva, si lo desea. 


CSL. Siglas de Computation Structures Lan- 


guage. Fue desarrollado específicamente 
para el ordenador matricial de Texas Instru- 
ments, TRAC (Texas Reconfigurable Array 
Computer). Su labor fundamental es sepa- 
rar la estructuración paralela de la secuen- 
cial, en los programas. Utiliza módulos es- 
critos en lenguajes de alto nivel para los mó- 
dulos de programas paralelo, y proporcio- 
na comunicaciones con memoria comparti- 
da, basadas en el envío de mensajes. Tam- 
bién permite la creación de canales de co- 
municación entre los elementos. El progra- 
ma consiste esencialmente en secuencias 
de instrucciones de creación, y otras de 
control de la ejecución. 

Las instrucciones de creación especifi- 
can cada nueva topología, indicando las ta- 
reas, datos compartidos y canales lógicos. 
Estas especificaciones se utilizan para con- 
figurar una arquitectura que sea conforme 
con la topología, y con el mapa de tareas y 
canales de dicha arquitectura. Las instruc- 
ciones de control de la ejecución definen el 
momento en el que se ejecutarán las tareas, 
qué tipo de datos compartidos se usarán y 
cuándo se llevarán a cabo las comunicacio- 
nes. Las primitivas de comunicación son de 
envío sin bloqueo, con una memoria de ta- 
maño fijo y una recepción con bloqueo. La 
transmisión de mensajes que pueden sopor- 
tar es de tipo uno con muchos. 


VOCABULARIO DE INFORMATICA 


Label. Término inglés para designar una eti- 
queta. (Véase Etiqueta.) 


Lápiz óptico. Dispositivo de comunicación 
entre el usuario y el ordenador. Su aspecto 
es muy parecido al de un lápiz normal. Se 
suele utilizar en terminales de ordenador 
para referenciar puntos en la pantalla. El 
dispositivo es controlado por el programa 
correspondiente. 

Si se considera el lápiz óptico como pe- 
riférico de entrada, introduce informacio- 
nes de un bit, interpretadas por el progra- 
ma y utilizadas por el hardware adecuado. 


Latencia. Tiempo transcurrido entre la ter- 
minación completa de la interpretación de 
una dirección y la transferencia desde esa 
posición indicada. En esta latencia está in- 
cluido el retardo asociado con el acceso a 
los dispositivos de almacenamiento, etc. 


Layout. (Véase Presentación.) 


Leading. Término inglés utilizado para de- 
signar cualquier elemento situado al co- 
mienzo de algo. Puede referirse a ceros 
(leading zeros) que son los ceros situados a 
la izquierda: de un determinado número, 
feading edge, flanco inicial, etc. 


Learning. Término inglés para designar un 
aprendizaje de cualquier disciplina. En in- 
formática suele aplicarse a enseñanzas asis- 
tidas por ordenador. 


Least significant bit. Término inglés para 
designar el bit menos significativo, es decir, 
aquel cuyo peso es menor. Generalmente es 
el bit situado más a la derecha, pero exis- 
ten casos en que esta regla no se cumple. 


Least significant digit. Término inglés 
para designar el dígito menos significativo, 
o aquel cuyo peso es menor. Suele ser el si- 
tuado más a la derecha. 
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Lectora. Dispositivo capaz de leer un sopor- 
te de memoria externo. Existen muchos ti- 
pos de lectoras, dependiendo del tipo de 
dispositivo que sean capaces de leer, como, 
por ejemplo, lectora de cintas, de tarjetas, 
etcétera. 


Lectura. Operación por la que se toman o in- 
terpretan datos que se encuentran en un 
dispositivo de almacenamiento, u otro me- 
dio o fuente. La operación inversa se llama 
escritura, o grabación. 


Left. Término inglés que significa izquierda. 
Puede aplicarse a casi cualquier cosa, por 
ejemplo, «left justify», ajuste por la izquier- 
da, etc. 


Length. Término inglés para indicar la longi- 
tud. Puede referirse a bloques, registros, 
palabras, etc. 


Lenguaje. Conjunto de caracteres y reglas 
con las que se puede escribir un programa 
de ordenador para manejar adecuadamen- 
te la información. Existen muchos tipos de 
lenguajes, aquellos que utilizamos para re- 
ferirnos a otros, llamados metalenguajes, 
lenguajes naturales (en contraposición a los 
artificiales), lenguajes orientados al objeto, 
lenguajes orientados al procedimiento, len- 
guajes fuente, lenguajes de programación, 
etcétera. 


Lenguaje ensamblador. Lenguaje de pro- 
gramación muy similar al lenguaje máquina 
y, por tanto, distinto para cada ordenador. 
Es un lenguaje simbólico, es decir, a cada 
instrucción le corresponde una única ins- 
trucción de máquina. Estos lenguajes próxi- 
mos al lenguaje máquina son muy incómo- 
dos de utilizar, pero aprovechan al máximo 
los recursos y posibilidades de cada orde- 
nador. 


